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Kommunicera med VIC 64S 


Det modema sättet att få information 

Kopplar du ihop ett universalmodem och ett teledataprogram 
med din VIC 64S så kan du kommunicera med videotexdata- 
baser via din telefonledning (75/1200 baud). Väljer du ett ter¬ 
minalprogram, kan du med samma modem ”tala” med andra 
VIC 64 ägare eller koppla upp dig mot databassystem som 
kommunicerar med 300/300 baud (1 baud = 1/10 tecken per 
sekund). 

Med universalmodement kan du alltså välja vilken typ av 
kommunikation du vill ha. Med videotexprogrammet (Teleda- 
ta 64) inkopplat kan du tex koppla upp Datavision, Videodata, 
Prestel, Telebild, Postel, Micronet osv, osv. 

I dessa baser kan du finna massor av information. Köpa en 
skjorta, sälja en bil, beställa campingplats, skicka meddelan¬ 
den mm, mm... 


Bok 1063.436 00 AikirrvGoiÄooi. Tal 031/28 97 90 


Några databasar: 


Viewdata AB 

Datavision 

Telebild 

Videotex 

telematris 

Wettergrens 


08-743 06 65 
018-901 00 
08-13 58 00 

08-99 44 30 
031-11 21 34 


Kommunikation är en del av vad VIC 64S kan. I 
foldern "VIC tili vardags” får du mer information 
om vad VIC kan göra för dig i vardagslivet. 


Jag vill ha foldern "VIC till vardags” 

Namn_ 

Adress__ 

Postnr/Ort_ 


Sänd in kupongen tiil handic electronic. Box 1063, 436 00 Askim. 











Ledaren 

Nu har våren äntligen kommit, även för oss dataintresserade. 

Just nu, i skrivande stund, förbereds Nordiska Microdatormässan i Sollentuna. Tyvärr så finns det 
en åldersgräns för de som vill besöka mässan. Ingen under 16 år får komma in. 

Detta kan tyckas vara tråkigt för er som inte får lov att besöka mässan, men vi på redaktionen 
hoppas på att ni kan få ta del av nyhterna genom VIC rapport istället. 

VIC rapport kommer att vara representerade vid mässan, någonting som vi på redaktionen ser 
fram emot. 

Som vanligt så strömmar det in en hel del läsarbrev hit till redaktionen. Vi tackar er alla som har 
fattat pennar och skrivit hit. Det kommer in många bra tips, idéer och synpunkter. Men glöm inte 
bort att det kan vara svårt att svara på alla brev — men självklart så gör vi så gott vi kan! 

Tänk också på att alltid skriva namn, adress och telefonnummer. Det besparar oss en hel del arbete 
om vi vill ta kontakt med er. Detta är speciellt viktigt om ni vill att vi ska publicera ert brev eller en 
artikel. 

Ja, som vi redan nämnt och som alla troligen känt är våren äntligen här. Detta betyder att nya spän¬ 
nande saker håller på att hända, inte minst inom databranschen. Vi hoppas att det ska bli en fortsatt 
spännande läsning av VIC rapport. 

Med dessa ord säger redaktionen adjö. 

Väl mött i nästa nummer. 


VIC redaktion: 

Box 52054 

12612 Stockholm 

Ansvarig utgivare: 

Nina Linander 

Administrativ 

redaktör: 

Elisabeth Höglund 

Teknisk redaktör: 

Matts Nilsson 

Övr. medarbetare: 

Åke Hedman 

Joakim Aspengren 

Ola Johansson 

Annonser: 

Lasse Brolin 

Hagalund 

27035 Blentarp 
Telefon 0411-47342 

Tryck: 

Dala-Offset AB, 

Falun 

ISSN-NR 

0281-8043 

Annonsorder och annonsmaterial (hel¬ 
original eller negativ film) enligt överens¬ 
kommelse. 

Tryckförfarande. Offset 

Upplaga. 22000 ex. 

Nr 5/6 av VIC-rapport utkommer preli¬ 
minärt den 12 juni. Manusstopp för nr 7 är 
den 10 juni och annonsstopp den 12 juni. 
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Nybörjarskolan Del 5 

I det här numret skall vi bl a behandla villkorliga hopp. Ni som 
följt denna serie bör nu vara ”ganska” kunniga på Basic. Så 
varför inte försöka göra något på egen hand 


Förlåt 

Vi tar börja denna artikel med en ursäkt 
för alla fel som förekom i nr 4 av densam¬ 
ma. Allt kan skyllas på den °/o + %’&§ 
TRYCKFELSNISSE som inte kan fatta 
detta med att ”VICKE” har en uppsätt¬ 
ning specialtecken som naturligtvis inte 
kan sättas med en automatisk process. 
Pga detta så blev hela avsnittet om mar¬ 
körförflyttningar helt meningslöst. För 
att Du skall få någon uppfattning om vil¬ 
ka kontrolltecken som genereras inom ci¬ 
tationstecken så skriv ett citationstecken 
på en ny rad och tryck på respektive tan- 
gelpar som anges under rubriken markör¬ 
förflyttningar. 1 fortsättningen så skall vi 
försöka att skriva ut VAD man skall göra 
i stället för hur tangentkombinationen ser 
ut. Detta gör vi genom att skriva ut tan- 
gentnedtryckningen inom parentes. Tex 
vill vi flytta cursorn uppåt så skriver vi 
PRINT ”(RSR UPP)” 
vilket alltså inte betyder att (CRSR UPP) 
skall skrivats ut, utan att man istället skall 
TRYCKA på cursor upp tangente och 
följaktligen få det kontrolllecken som 
denna tangentkombination ger. 

Vi på redaktionen ursäktar verkligen 
detta och lovar att bättra oss. 

Programmera själv 

Ni som har följt denna serie bör nu vara 
”ganska” kunniga på BASIC och det är 
kanske bara modet som krävs för att 
komma vidare och börja skriva egna 
program för att ta hand om de uppgifter 
som kräver ”VICKES” hjälp vid hem¬ 
mets härd. Det första trappsteget när man 
lär sig att programmera brukar allt för 
ofta vara att våga göra, eller kanske sna¬ 
rare försöka göra, något på egen hand. 
Du kan dock vara helt säker på att Du inte 
förstör något genom att försöka skapa 
egna program. OK! Det kanske blir ett fel 
här och där men vad spelar del för roll! 
Även de professionella programmerarna 
har fel i sina program vid första försöket. 


GOTO 

Vi tittade redan i förra avsnittet på detta 
kommando och sa då att ett hopp skedde 
till den rad som vi angav efter. 

Vi kan tex skriva 
10 PRINT ”VICKE” 

20 GOTO 10 

och ”VICKE” kommer att skrivas ut i all 
oändlighet på skärmen. När vi tröttnat på 
denna räcka av ”VICKE” så kan man 
trycka på tangenten märkt 
”RUN/STOP” och programmet slutar. 
Observera att detta alltid gäller. Har man 
ett program som man vill avsluta så kan 
det stoppas genom att trycka på 
”RUN/STOP”. 

Låt oss stanna till lite här för att få en 
uppfattning om vilka formateringsmöj- 
ligheter (olika sätt att skriva ut saker) som 
finns för del vi skall printa. 

Som Du såg när Du körde programmet 
så skrevs ”VICKE” ut, men hela tiden på 
en NY rad. Lägger vi till ett semikolon (;) 
efter PRINTren i programmet, dvs 
skriver 

10 PRINT ”VICKE”; 

20 GOTO 10 

så kommer alla ”VICKE” att skrivas ut 
efter varandra i stället. Detta tecken 
(semikolon) talar alltså om att inget byte 
till ny rad skall göras efter printningen. 

Låt oss nu sätta in ett kommatecken 
mellan PRINT oeh ”VICKE”; dvs pro¬ 
grammet får utseendet 
10 PRINT, ”VICKE”; 

20 GOTO 10 

Nu kommer istället utskriften i kolum¬ 
ner. Detta kanske syns bättre om vi änd¬ 
rar programmet till 
10 PRINT ”VICKE”, ”ABCDE” 

20 GOTO 10 

Denna sista möjlighet kan vara använd¬ 
bar om man skall göra tabeller eller något 
i den stilen. 

Nu var det GOTO vi skulle titta på. 
GOTO ger alltså hopp till en ny rad där 
programmet fortsätter att köras. Detta 


kommando bör man vara lite försiktig 
med dä en massa GOTO i ett program gör 
det svårt att se hur programmet fungerar. 
Observera också att vi inte kan skriva 
20 GOTO X 

även om variableln X har värdet 10. 
Ibland hör man människor beklaga sig 
över att denna möjlighet inte existerar 
men tänk dig själv hur svårt det skulle 
vara att sätta sig in i ett program som inne¬ 
håller denna typ av hopp. Vi får alltså va¬ 
ra glada att möjligheten inte existerar 
eftersom den säkert annars skulle utnytt¬ 
jas. 



G-QT O 


Villkorliga hopp 

Vanligt förekommande vid allt program¬ 
meringsarbete är att man vill kontrollera 
om vissa villkor är uppfyllda och sedan 
utföra något om och endast om detta vill¬ 
kor är uppfyllt. 

Varje programmeringsspråk har kom¬ 
mandon som gör det möjligt att göra så¬ 
dana här beslut, även om de sätt man ger 
kommandona på varierar från språk till 
språk. 

I BASIC använder vi oss av något som 
kallas IF...THEN...-strukturen. 

Med dessa två ”ORD” så kan man 
kontrollera om det som står mellan IF och 
THEN är sant och sedan utföra det som 
står efter THEN, BARA om resultatet 
var sant. Om resultatet är falskt så hoppar 
programmet helt enkelt över den rad där 
IF...THEN...-strukturen ligger. 
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Skriv nu in följande program 
10 1NPUT ”ETT TAL”;N 
20 IF N = 3 THEN PRINT ”TREA” 
30 IFN > 3 THEN PRINT ”STÖRRE 
ÄN TRE” 

40 IFN <3 THEN PRINT ”MINDRE 
ÄN TRE” 

50 GOTO 10 

Kör programmet. Som Du ser så skrivs 
olika saker ut beroende på vilket tal Du 
matar in. Slår Du t ex in en trea så skrivs 
”TREA” ut, detta stämmer ju med N = 
3 dvs den IF...THEN...-struktur som 
finns på rad 20 får ett sant resultat och det 
som står efter THEN utförs. På alla and¬ 
ra rader så får vi ju ett falskt resultat efter 
som tre varken är större eller mindre än 
tre. Programmet glömmer alltså här helt 
enkel bort det som står efter THEN och 
fortsätter på nästa rad. När Du skall av¬ 
sluta programmet ovan hjälper det inte 
med att bara trycka på RUN/STOP utan 
Du måste trycka RUN/STOP + RE- 
STORE. Som Du ser så (skriv LIST) så 
försvinner inte ditt program denna gång 
heller. 

Mellan IF och THEN kan man ha vilka 
uttryck som helst. Man kan t ex utföra en 
beräkning och sedan kontrollera om re¬ 
sultatet ligger inom vissa gränser. Ett ut¬ 
tryck på formen IF 2/3—(44 + 159(2 +1)) 
= 0 THEN PRINT ”KRÅNGLIGT” 
är alltså fullt möjligt. 

Olika testmöjligheter 

Låt oss ställa upp en lista på de olika test¬ 
möjligheter vi har. 


LIKA MED: 

STÖRRE ÄN: 
MINDREÄN: 

STÖRRE ÄN ELLER 
LIKA MED: 
MINDREÄN ELLER 
LIKA MED: 

SKILJT IFRÅN: 

(kan även skrivas NOT N 


exN = 0 
exN > 0 
exN < 0 

ex N > =0 

ex N < =0 
ex N < > 0 
0) 


Detta är de aritmetiska tester som vi 
kan göra. En annan form finns också som 
kallas LOGISKA tester. Vad innebär då 
egentligen detta? 

Sanningen att säga så är det logiska tes¬ 
ter som sker i varje fall där vi använder oss 
av teststrukturen. Detta innebär bl a att 
tecken som =, > och < i själva verket 
utför en operation. För att få en uppfatt¬ 
ning om hur detta fungerar så kan vi titta 
på detta i DIREKT MOD. Om vi vill så 
kan vi ju använda ” VICKE” som en räk- 
nedosa. T ex kan det hända att vi vill veta 
vad 5789/35 är. Vi skriver då bara: 


PRINT5789/35 < RETURN > 

och vips så får vi resultaet 165,4 utskrivet. 
Den som inte känner för att skriva så 
mycket ersätter naturligtvis PRINT med 
? vilket vi tidigare omtalat är ett sätt att 
förkorta PRINT. 

För att återvända till logiken igen och 
förstå de operationer som sker här så 
skriv 


PRINT3 = 3 < RETURN > 

Som Du ser så får Du —1 utskrivet. För¬ 
sök nu med 

PRINT4 = 3 < RETURN > 




Den här gången fick vi en ”nolla” ut¬ 
skriven. 

Utmärkande för vårt första experiment 
var att vi bad datorn ”printa” ett uttryck 
som var sant. Ingen ifrågasätter väl att tre 
är lika med tre. Hade det stått i en 
IF...THEN-struktur så skulle alltså det 
som låg efter THEN ha utförts. 

1 det andra fallet bad vi ”VICKE” att 
printa ett FALSKT uttryck och den gav 
resultatet noll. 

Av detta kan vi dra slutsatsen att ett 
FALSKT uttryck ger en nolla som resul¬ 
tat. Ett falskt uttryck medför i sin tur att 
del som står efter THEN i IF...THEN- 
strukturen INTE utförs. 

Om uttrycket däremot är sant så får vi 
—1 som resultat. Detta kan dock genera¬ 
liseras så tillvida att ETT SANT UT¬ 
TRYCK ÄR SKILT FRÅN NOLL. 

Vad som görs mellan IF och THEN är 
alltså helt enkelt att kontrollera att det ut¬ 
tryck som finns här har resultat 0 
(FALSKT) eller skilt ifrån noll (SANT). 

EU program 

Vi kan visa detta genom att ha ett pro¬ 
gram som ser ut så här: 

10 IF 34 THEN PRINT ”SANT” 

Kör Du detta så kommer SANT att 
skrivas ut eftersom ”34” är skilt ifrån noll 
och alltså ALLTID är sant. Ändrar du 34 
till en nolla istället så får Du en uttryck 
som ALLTID är falskt. Vad händer? 
Testa gärna detta genom att ”printa” de 
andra aritmetiska testmöjligheterna i vår 
lista i olika kombinationer av sanna och 
falska uttryck. Vad ger exempelvis 0,1 < 4 
för resultat? 

Ibland kan man önska sig en test på 
flera olika saker och utföra något om t ex 
båda dessa är sanna. Vi kan t ex anta att vi 
har två variabler och att vi om dessa är 
lika med tre vill printa något. Detta kan vi 
skriva som 

IFA = 3 THEN IF B = 3 THEN PRINT 
”BÅDA ÄR TRE” 

De båda variablerna betecknar vi alltså 
med A och B. När programmet når raden 
ovan så kontrollerar det först om varia¬ 
beln A är lika med tre. Är den det blir re¬ 
sultatet SANT och det som står efter den 
första THEN utförs. 1 annat fall fortsät¬ 
ter programmet med nästa rad. Eftersom 
vi efter en THEN kan lägga vilket BASIC 
uttryck som helst så har vi lagt en till 
IF...THEN-struktur här där vi testar om 
också den andra variablen är lika med tre 
och utför printningen om så är fallet. 

Genom att använda ett annat BASIC 
ord så kan vi förenkla detta något. Det 
finns nämligen ett ”brd” som heter AND 
vilket på svenska skulle bli OCH. 

Detta är ett ord som verkar helt logiskt 
och vi kommer senare fram till mer avan¬ 
cerade användningar av ”ordet”. 
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Med AND kan vi kontrollera om båda 
variablerna är sanna och utföra print- 
ningen om så är fallet med endast en 
lF...THEN-struktur. Vi skriver då om 
den tidigare programraden till 
IF A = 3 AND B = 3 THEN PR1NT 
”BÅDA ÄR TRE” 

vilket ger exakt samma resultat som tidi¬ 
gare. 

AND tar alltså och kontrollerar om de 
båda uttryck som står på varsin sida om 
den är sanna och ger ett sant resultat om 
och endast om så är fallet. Är båda uttryc¬ 
ken falska så blir resultatet en nolla. Detta 
gäller naturligtvis även om endast ett av 
dem är falskt. Testa genom att printa 
olika uttryck i direkt mod för att bevisa 
detta för dig själv. 

Har vi ännu fler variabler vi vill testa så 
kan vi bara ta mer fler AND’ar. Det kan 
dock vara lämpligt att använda parente¬ 
ser för att få en tydligare listning. Istället 
för att skriva 

A = 3 AND B = 3 AND C = 3 
så kan man ju anstränga sig för att skriva 
(A = 3 AND B = 3) AND C = 3 

Om man istället för konstanter (treor¬ 
na ovan) har uttryck som skall beräknas 
kan dessa parenteser vara nödvändiga för 
att få ett korrekt resultat. 

Endast ett villkor är uppfyllt 

Ibland kan det räcka med att endast ett 
villkor är uppfyllt för att en sak skall ut¬ 
föras. Vi kan t ex tänka oss ett spel där 
man kan styra en rymdfarkost både med 
tangentbordet och med en joystick. I 
båda fallen räcker det med att en av dessa 


(eller båda) är uppfyllda för att farkosten 
skall röra sig i en viss riktning. 

För detta ändamål så har BASIC 
”ordet” OR eller ELLER som det blir på 
svenska. Resultatet av att sätta en OR 
mellan två uttryck ger alltså ett sant resul¬ 
tat om minst ett av de båda uttrycken är 
sant. 

IF A = 3 OR B = THEN PRINT 
”JÄTTEKUL” 

kommer följdaktligen att skriva ut 
”JÄTTEKUL” om A = 3 ELLER B = 3 
eller om båda dessa är sanna. Du kan sä¬ 
kert själv Finna en hel del användnings¬ 
områden för OR. Testa också gärna i di¬ 
rekt mod. 

En annan logisk funktion inbyggd i 
BASIC är NOT eller ”icke” på svenska. 
Lägger man detta ”ord” framför ett sant 
uttryck så får man ett falskt och viceversa. 
NOT (3 = 3) 

ger alltså ett falskt resultat istället för 
sant. 

Detta är dock en funktion som inte är 
allt för vanlig i de flesta BASIC tillämp¬ 
ningar men den kan vara bra att känna 
till. 

Ytterligare en logisk funktion finns. 
Detta är EOR eller exklusiv eller som den 
heter på ”svengelska”. Denna funktion 
har Du dock knappast någon användning 
för tillsammans med IF...THEN-struk- 
turer så vi väntar med en genomgång av 
denna till ett senare tillfälle. 

Vanligt förekommande är att man vill 
hoppa till en bestämd programrad om ett 
testat uttryck är sant. Detta kunde vi ju ha 
skrivit som IF ”uttryck” THEN GOTO 


”nyrad” 

där ”uttryck” är det som skall testas och 
”nyrad” är den rad dit man önskar hop¬ 
pa om uttrycket får ett sant resultat. Detta 
har konstruktörerna av CBM BASIC 
tänkt på och underlättat det hela genom 
att vi kan utelämna GOTO eller THEN 
om vi vill utföra ett hopp till en ny rad. 
IFA < > 4 THEN 7000 
kommer alltså att hoppa till rad 7000 om 
A är skilt ifrån fyra. 

Tänk efter! 

Till slut så observerar vi att man får vara 
lite betänksam med hur man skriver sina 
BASIC rader när man jobbar med 
lF...THEN-strukturen. En rad på for¬ 
men 

IF A = 4 THEN PRINT ”FYRA”: 
PRINT ”TALET ÄR”: GOTO 200 
får den sista delen dvs 
PRINT ”TALET ÄR”: GOTO 200 
utförd BARA om A verkligen är lika med 
fyra. Kom alltså ihåg att ALLT SOM 
STÅR PÅ RESTEN AV BASICRADEN 
HOPPAS ÖVER OM DET SOM TES¬ 
TAS ÄR FALSKT. 

Om vi i exemplet ovan ville att den sista 
delen skulle utföras varje gång så får vi 
följdaktligen flytta ned denna andra del 
på en NY BASIC rad. 

Detta var allt för denna gång. Hör gär¬ 
na av dig till redaktionen med synpunkter 
på nybörjarskolan. Är det för svårt? För 
lätt? Det är bara genom att höra av dig 
som vi kan följa dina råd och bli bättre. 
PROGRAMMERA MERA!!! 

Åke Hedman 
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Rut-diagram 

Att presentera beräkningsresultat snyggt på skärmen är viktigt. 
Det kan du göra med denna subrutin, som plottar upp resulta¬ 
tet i ett gulvitt schackbrädsmönstrat diagram. Med de tydliga 
axelmarkeringarna går det snabbt att läsa av värdena. Den 
automatiska skalningen av diagrammet i höjdled gör subruti¬ 
nen mycket användbar. 


Programlistning nr 1 är för VIC-20. Som 
ett exempel visas hur en sinusfunktion ser 
ut. Själva subrutinen för rutdiagrammet 
finns på raderna 280—600.1 programlist¬ 
ning nr 2 ges ändringarna för Commo- 
dore 64. 

Programbeskrivning 

1 rad 200—250 sker initieringar. QT och 
QB är antalet rader för text över respekti¬ 
ve under diagrammet. QL anger hur långt 
från vänsterkanten som diagrammet vi¬ 
sas. Önskas fin upplösning i diagrammet 
så användes data i rad 220 i stället för rad 
230. Med NG och RG kan bakgrundsfär¬ 
gerna ändras. 

Raderna 300—410 skriver ut övre tex¬ 
ten och sköter om skalningen av diagram¬ 
met i höjdled. 1 rad 440—470 fylls dia¬ 
grammet med schackbrädsmönstret. 
Pokevärdet i rad 450 bestämmer färgen 
på rutorna. Axeln i höjdled ritas på rad 
500—530 och därefter sker plottningen 
på rad 560—580. Rad 590 är en vänte- 
loop. Du kommer ur vänteloppen genom 


att trycka på någon tangent. I rad 600 
återställes skärmen. Exemplet för plott- 
ning av en sinusfunktion finns på rad 
650—710. 

Användning 

Infoga rad 10—600 i ditt program. Sätt 
QN lika med antalet värden som skall vi¬ 
sas. Maximalt 18 st på VIC-20 och maxi¬ 
malt 35 st på C-64. QQ anger hur skal¬ 
ningen av diagrammet i höjdled skall ske. 

QQ = 1 Skalning mellan max- och min¬ 
värden 

QQ = 0 Värdet noll kommer alltid med 
QQ;-1 Möjliggör egen skalning med 
maxvärdet QX och minvärdet QI 
I fältet Q () lagras de QN värden som 
skall visas. Eftersom endast heltal anges 
på axeln bör de största beloppen av Q () 
ligga mellan 1 och 1000. För större värden 
till exempel 10000 ökas QL på rad 200 till 
QL = 5 osv. Texten ovan och under dia¬ 
grammet lagras i Q$ (). Därefter anropas 
subrutinen med GOSUB 300. 

Se upp så att du inte använder samma 
variabler som subrutinen. De flesta vari- 


DATAKASSETTER 
HÖGSTA KVALITÉ 
TILL FABRIKSPRISER !! 


SUPER FERRO (TYP 1) 


C 5 2x2% 
C 10 2x5 
C 15 2x7% 
C 20 2x 10 
C 25 2x 12% 
C 30 2x 15 


Min. 7.30/st 
Min. 7.45/st 
Min. 7.70/st 
Min. 8.15/st 
Min. 8.50/st 
Min. 8.85/st 


Priserna gäller vid köp av 20 st av en 
längd. Mindre än 20 st tillägg 1: — /st. 
Moms ingår. 


DISKETTER TILL LÅGPRIS ! ! 

BASF FLEXY DISK 5,25 
48TPI (40 Spår) 

IX SS/SD 25: — /st 

ID SS/DD 31: — /st 

2D DS/DD 35: — /st 

96TPI (77/89 Spär) 

1/96 SS/DD 34:-/st 

2/96 DS/DD 43:-/st 

Priserna gäller vid köp av 5 st/ Beteck¬ 
ning. Moms ingår. 


Porto 16:— tillkommer/leverans. Be¬ 
tala till postgiro 17 63 25-9 eller sänd 
check. Full garanti på fabrikations- 
och materialfel. 


KLM TRADING • 430 31 ÅSA 

Tel. 0340-561 90 även kvällar o. helger 


ablerna börjar med Q. Dessutom an¬ 
vänds NR, NC, SC, CC, BG, NG och 
RG. I, J och Q är slaskvariabler och kan 
återanvändas. 


READY. 

1 REM RUT-DIAGRAM 

2 REM MODIFIERINGAR 

3 REM FÖR COMMODORE 64 

4 REM L.M. 1984 

5 REM 


10 

POKE 

53281 

,1 







20 

QU1=679: FOR 

I=QU1 TO 

QUJ + 35 

IREAD 

Q: IF 

Q< 0 

THEN 

30 

POKE 

I ,Q 








40 

NEXT 









50 

DATA 

169,- 

648, 

162, 

160, 

32, 

178, 

e. 

169 

60 

DATA 

216, 

162 , 

1, 

134, 

253, 

133, 

252, 

169 

70 

DATA 

0, 

133, 

251 , 

170, 

168, 

165, 

253, 

145 

30 

DATA 

251 , 

200 , 

208, 

251 , 

230, 

252, 

232, 

224 

90 

DATA 

4, 

48, 

244 , 

96 






200 NR =25 ! NC = 40 : QT = 2 : QB = 2 :QL =4:DIMQ< NC-QL-1 ) ,Q'/X 8> ,Q*< QT+QB) 

220 REMIDATA 228,210,138,132,195,196,197,227 
230 DATA 226,226,226,226,98,98,98,98 
240 SC=1024 iCC=55296 
250 BG=53281ING=1 iRG=6:GOTO 650 

300 POKE BG ,RG : PR INT f '• SYSQUH FOR 1 = 1 TO QT: PR INT"a"Q*< I ) : NEXT 

520 POKE QG , I : PR INT ■□a n SPC< 4-LENK STR*< Q ) ) ) Q i PR I NT “ CM" TABC QL > CHR*<239) 

580 POKE QG,QS:FOR I=QT+1 TO QT+QBi PRINT"»"QS( I); :NEXT 

READY. 
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READY. 


100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
4 10 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
6 10 
620 
630 
640 
650 
660 
670 
680 
690 
700 
7 10 


REM *************** 


REM 

REM 

REM 

REM 

REM 


RUT DIAGRAM * 

FÖR VIC 20 * 

AV L.M.1984 * 

* 

REM *************** 

REM 

REM * INITIER INGAR * 

NR=23:NC=22:QT=2:QB=2:QL=4:0IMQC NC-QL-1 > ,QX.C 8) ,Q*C QT+QB) 

QG=2 14:FOR 1=1 TO 8:READ Q%C I>:NEXT 

REM:DATA 100, 82, 70, 64, 67, 68, 69, 99 

DATA 98,98,98,98,226,226,226,226 „„„„ 

SC =4096: CC =37888:IF PEEKC648>=30 THEN SC=7680:CC=38400 

BG =36879 :NG =27 :RG=107:GOTO 650 

REM 

REM 

REM * START SUBRUTIN * 

POKE BG ,RG-8 : PR INT-kJS" * :FOR 1 = 1 TO QTSPRINT Q*C I > : NEXT 
QS=NR-QB-1:IF QQ=-1 GOTO 330 
Q I = 1019:QX = - Q I: IF QQ=0 THEN QX = 0:QI=0 
FOR 1 = 1 TO QN: IF QX<Q( I ) THEN QX=GK I) 

IF Q 1 >GK I ) THEN Q I =Q< I > 

QD=i000*CQX-QI >/C QS-QT):IF QD<200 THEN QO=200 

QM=LENC STRSC INTC QD +1 ) ) > -2:QK=QD/10tQM:Q=1 :QC=2 

IF QK > 1 THEN Q = 2:QC=10 

IF QK >2 THEN Q=5 

IF QK >5 THEN Q=10:QC=20 

QR=Q*10tQM:QM=QC*10 tC QM-3):QE=-1 

REM 

REM * RITA RUTOR * J __. 1 

FOR I=QT TO QS:QK=CC+NC*I:Q=QE:FOR J=QL+1 TO QL+QN 

Q =NOT Q: IF Q THEN POKE QK+J,7 

NEXT J:QE =NOT QE:NEXT I 

Q2=QR*INT( 1000 *QI/QR > :QC =QZ 

REM 

REM ♦ Y~ AXEL» ♦ 

FOR I = QS+1 TO QT+1 STEP-1:Q=INTC QC/200+.5>/5 

POKE Q6ti^PR?NT M ”CI"ipC?4-LiNfsTR*< Q) )> Q : PR INT " □" TABC QL > CHR*C175> 

QC=QC +QR:NEXT I 

REM 

FOR ?=T L ?5 T Sn?Q=< 1000*Q< I )-QZ >/QR : QK = INTC Q ) : QC= INTC 8*C Q-INTC Q > ) > + 1 
POKE SC+C QS-QK > *NC+I+QL ,QXC QC> : NEXT I _ 

POKE QG , QS : FOR I =QT+1 TO QT + QB : PR I NT , ’S"Q*C I NEXT 
GET Q*:IF Q$="“GOTO 590 
POKE BG ,NG : PR INT"^" : RETURN 
REM 
REM 
REM 
REM 
QQ = - 


* EXEMPEL * 


1 : QN= 11:QX=10:Q I=- 15 
SINUSKURVA“ 
10*SINC I ** /5 > * 
01234567890" 


Q*C 1 ) = " 

Q*C 2 ) = " 

Q*( 3 ) = ” 

Q$< 4 ) = " “ 

FOR 1=0 TO 
GOSUB 300:ENO 


1 0 : QC I ♦ 1 ) = 10*S INC I *n/5 ) : NEXT 


READY. 
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DOS 

WEDGE 

inkilning hos 
diskdriven 

DOC (Disc Operating System) 
är till för att förenkla 
hanteringen, men det är 
sällan så enkelt som med ett 
kassettminne. 

För att en diskdrive ska fungera som vi 
vill, har alla datorer ett DOC (Disc Opera¬ 
ting System) Alla DOS är till för att för¬ 
enkla hanteringen, men det är sällan så 
enkelt som med ett kassettminne. Många 
krångliga kommandon behövs som t ex 
OPEN 15, 8, 15 — PRINT # — osv... 
Gör man fel kan man kvadda program¬ 
met/filen. 

För att hjälpa oss har vänliga program¬ 
merare tagit fram något som brukar kal¬ 
las en DOS WEDGE. Anledningen till att 
de här programmen kallas WEDGE (kil) 
beror på att man från början ger dem 
kommandotecknet ” >” som ser ut som 
en kil. Det är alltså ett maskinspråkspro- 
gram som förenklar diskhanteringen. 
Commodore Business machine, som gör 
C 64:an låter ett sådant program inklude¬ 
ra en demodisk, som följer med disk¬ 
driven 1541. Däremot är man inte lika fri¬ 
kostig med förklaringar och instruktio¬ 
ner. Därför har jag skrivit ihop lite om 
wedgeprogrammets kommandon och en 
del andra praktiska tips. 

Bruksanvisning 

Börja med att stoppa in demodisken och 
ladda C 64 WEDGE eller VIC 20 
WEDGE. Det är ett laddprogram för 
DOS 5.1. Laddningen tar bara några se¬ 
kunder. Ta inte ut disken utan skriv 
RUN. DOS 5.1 laddas då automatiskt 
och läggs undan i kassettbufferten. Sam¬ 
tidigt raderar laddprogrammet ut sig 
självt. 

Kommandot för att använda en 
WEDGE är ” > ”. På våra tangentbord 
måste du trycka SH1FT samtidigt för att 
skriva det tecknet. Så var det inte när det 
första wedgeprogrammet skrevs. För att 
förenkla för oss har man därför numera 
lagt till kommandotecknet ”a”, alfa, 
snabel-a, kanelbulle, eller vad du nu bru¬ 
kar kalla det. Det är precis likvärdet med 
” > ”. Du kan använda vilket du vill och 
när du vill. I exemplen nedan använder 



COMPSOFT 

LÄTTFIL 



Det moderna registerprogrammet till VIC 64 
från din datahandlare eller: 



Filipstadsbacken 26, 12343 FARSTA 
Tel 08-7714500 


jag än det ena, än det andra. Dessutom är 
snedstreck”/” = LOADochpil” 4'” = 
LOAD/RUN. 

OBS! Alla dessa kmmandotecken bör 
stå längst till vänster på raden. 

En av fördelarna med wedgen är att du 
inte behöver ange diskdrivens adress, 
vanligen 8, och inte heller använda cita¬ 
tionstecken (”) runt programnamnet. 

Load 

För att ladda ett program som heter 
TEST skriver du /TEST och trycker på 
< RETURN >. Här ska du inte ha någon 
kanellbulle eller kil framför. + TEST ger 
LOAD/RUN. 

Felmeddelande 

Om den röda lampan lyser på driven se¬ 
dan den stannat, har något gått snett. För 
att få reda på felet skriver du: a eller > 
och trycker på RETURN. 

Innehållsförteckning 

För att se vad du har på flexskivan skriver 
du: > $ och trycker... du vet var! 

En finnes med kommandot är att pro¬ 
gram som finns i RAM-minnet inte på¬ 
verkas. Om du skriver LOAD ”$”, 8 för¬ 
svinner det. Vill du däremot ha en utskrift 
av innehållsförteckningen är det bara att 
skriva. /$ Sen skriver du OPEN 4, 4: 
CMD4 : LIST men då försvinner förstås 
eventuella program ur minnet. 


Initiera 

Genom att skriva: > 10 eller alO får du 
diskdriven att ”skaka hand” med da¬ 
torn. Nollan efter I behövs inte när du har 
en enkel diskdrive. 

Formattera (NEW) 

Som du vet måste varje ny flexskiva for¬ 
matteras innan du kan använda den. Det 
gör du genom att skriva: a NO: DISK¬ 
NAMN, AB. Namnet på disken är val¬ 
fritt, men det är bara de 16 första tecknen 
som kommer med. De två identifierings- 
tecknen kan lika gärna vara siffror, men 
undvik att ha samma id på två diskar. 
Formatteringen tar någon minut, men 
eftersom Commodores kringutrustning 
har egen ”intelligens” så kan du jobba 
vidare med datorn under tiden. 

Det finns en variant av NEW- 
kommandot, då man utelämnar komma¬ 
tecknet och id-tecknat: a NO: NYTT 
NAMN. Skivan får nytt namn, samma id 
men allt annat raderas bort som fanns där 
förut. Det hela tar bara ett par sekunder. 
Detta fungerar endast på redan formatte- 
rad disk. 

Radera (SCRATCH) 

Om du vill ta bort ett program från en 
disk skriver du: > SO: TEST. TEST för¬ 
svinner då från flexskivan och innehålls¬ 
förteckningen. 
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Städa (VALIDATE) 

Det här är ett värdefullt kommando, som 
städar upp och snyggar till i flexskivans 
BAM (Block Availability Map). Skriv: a 
VO. Om du flera gånger sparat och rade¬ 
rat proram, börjar det bli rätt stökigt på 
din flexskiva. Små outnyttjade utrymmen 
ligger utspridda här och var. Med VALI¬ 
DATE blir allt välordnat igen och du får 
dessutom fler block tillgängliga. 

OBS! Med VALIDATE kan du också 
rädda en disk som håller på att kvaddas. 
Om ett SAVE misslyckas slocknar inte 
den röda lampan. Det syns också på inne¬ 
hållsförteckningen genom en * före fil- 
typen, t ex *PRG. Skriv då direkt: 
>VO<RETURN .Om du inte gör nå¬ 
got eller försöker radera filen med 
SCRATCH så blir säkert flera andra 
program kvaddade också. 

RENAME 

Med det här kommando kan du ge ett nytt 
namn åt ett sparat program. OBS! Det 
nya programmet ska skrivas först. Jäm¬ 
för BASIC, A = 10. 

> RO: PROV = TEST 
Programmet TEST heter nu PROV på 
disken. 

COPY 

På en dubbel diskdrive kan du kopiera 
program från en skiva till en annan med 


copy, men även på en enkeldrive kan vi 
trolla lite med det här kommandot. aCO: 
KOPIA = 0: ORIGINAL gör att du får 
ditt program ORIGINAL sparat på en 
annan plats på skivan, under namnet 
KOPIA. 

Vad som kanske är roligare för oss 
programmerare är att man kan koppla 
ihop två eller flera program, under ett nytt 
namn. a CO: DUBBELFÖRSÖK = 0: 
TEST, 0: PROV. Detta kommando är 
värdefullt när man vill koppla ihop två 
datafiler. 

SAVE AND REPLACE 

Det hör egentligen inte hit, eftersom det 
inte finns någon förkortning för SAVE i 
wedgen. Men det kan vara bra att veta än¬ 
då om man t ex rättat ett redan sparat 
program och vill ha kvar den nya versio¬ 
nen under samma namn. SAVE” a 0: 
NAMNET” 8 (Här duger inte >) raderar 
först och sparar sedan det nya namnet 
med samma namn. Det lär för övrigt fin¬ 
nas ännu flera wedge-kommandon, men 
jag har hört att man ska ta det varligt med 
dem. 

Det är en god idé att spara wedgen och 
DOS 5.1 först på alla flexskivor. Men 
wedgen är det inget problem, men CBM 
har beslutat att LIST-skydda DOS 5.1. 
Det återges här: 


10 REM **DOSUTAN DEMODISK** 
20 IF IM = YOU THEN YOUR = 1: 
LOAD ”DOS 5.1”, 8, 1 
30 IF YOUR = 1 THEN SYS 52224 
40 INPUT ”(SHIFT / CLR) BYT 
TILL NY DISK! KLAR? (J/N)”;I S 
50 IF 1$ < > ”J” THEN 40 
60 POKE 43, 255: POKE 44, 203: 

POKE 45, 90: POKE 46, 207 
70 SAVE ”DOS 5.1”, 8, 1 
80 POKE 43, 1: POKE 44, 8: NEW 

På rad 40 ska naturligtvis 
(SHIFT/CLR) se ut som ett reverserat 
hjärta på din datorskärm. 

Spara föst wedgen från demodisken på 
en (ny) skiva på vanligt sätt. Skriv sedan 
NEW (RETURN) så att datorns minne är 
tomt. Knacka så in ”DOS UTAN DD” 
och kolla noga. Spara det sedan på sam¬ 
ma disk utan att skriva RUN först. 

Nu sätter du in demodisken och skriver 
RUN. Efter några sekunder ber program¬ 
met dig byta skivor. Gör det och tryck på 
J (RETURN). DOS 5.1 sparas då på den 
nya disken och raderar ut sig själv ur da¬ 
torns minne. Med hjälp av den nya disken 
kan du sedan plocka in WEDGE och 
DOS 5.1 på alla dina diskar. 

Det här låter kanske lite förvirrande, 
men ta det i tur och ordning så funkar det 
fint. 

A nn-Marie Korsell 


DOS-WEDGE kommandon 

/PRG-namn 

laddar program 

LOAD 

t PRG-NAMN 

laddar och kör program 

LOAD/RUN 


skriver ut felmeddelanden från driven 

— 

>$ 

visar disken innehåll 

— 

a io 

= ”handskakning” 

INITIALIZE 

3 N0: DISKNAMN, ID 

formatterar 

NEW 

3 N0: NYTT NAMN 

raderar alla program 

NEW 

3 S0: PRG-NAMN 

raderar ett program 

SCRATCH 

3V0 

städar på flexskivan 

VALIDATE 

3 R0: NYTT NAMN = GAMMALT 

byter namn på ett program 

RENAME 

3 C0:KOPIA = 0 ORIGINAL 

kopierar program, samma disk, nytt namn 

COPY 

3 C0: DUBBELT = 0: PRG1, 0:PRG2 kopierar ihop två program, nytt namn 

COPY 

SAVE”3 0:NAMN”, 8 

sparar ny programversion ovanpå gammal under samma namn 

SAVE/REPLACE 
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Åke Lundquist har skickat ett program till redaktionen som vi 
här nedan publicerar. Programmet gör ett Basic-program som 
laddar en minnesarea med samma innehåll som minnesarean 
för tillfället innehåller. 


MlfMESDATA 


PROGRAhTMET GDR ETT BASICPROGRAM SOM LADDAR EN MINNESAREA MED 
SAMMA INNEHALL SOM MINNESAREAN FOR TILLFALLET INIEHALLER. 


INPUT A* 
INPUT B* 
IhEUT C* 


100 REM *********t 
1 10 REM * 

1 £0 REM * 

130 REM * AV AKE LUNOEQUI ST 1984-02-2 1 
140 REM * 

150 REM * 

160 REM * 

170 REM * 

180 REM * 

130 REM * DE INLEOANOEREM-SATSERNA GÖR PLATS FOR DET DET NYA PROGRAMMET. 

200 REM * 

210 REM ********************************************************************* 
220 REM ********************************************************************* 
£30 REM ********************************************************************* 
1000 REM 

1010 REM ** HUVUDPROGRAM: 

1020 REM 

1030 DATA 1B9,0,133,45,169,0,133,46,36 
1040 FOR 1=900 TO 308:READ X:POKE I,X:NEXT I 
1050 REM 

1060 PRI NT “ 1 NNE SDATA ■ 

1070 PRINT "*********************** 

1080 PR I NT" SIANGE NAMNET PA DITT NYA PROGRAM 
1090 PRINT-fiANGE MINNESAREANS STARTADRESS 

1100 FR I NT" SANGE M1NNESAREANS TOPP-ADRESS 

1110 PRINT"«ALLT OK <J/N)7" 

1120 GET D*:IF D*="N" THEN RUN 
1130 IF O *v >”J" THEN 1120 

1140 PRINT”SJIYTT PROGRAM UNDER UTFORMNING!!* 

1150 BS=PEEK<43)+256*PEEK<44>:BT=BS:REM BASIC-START & TOPP 
1160 IF PEEK<BT+4)=143 THEN BT=PEEK<BT)+256*PEEK<BT+1):GOTO 1160 
1170 A*=CHRS< 143)+* ** "+AS+* ** “:A=BS:RN=100 
1180 GOSUB 1350:REM PROGRAMNAMNET SKRIVS 
1190 FOR I=VAL< B* ) TO VALCC») 

1200 A* = A* + MIDSC STR*<PEEKC 1 ) > ,2) + “ , *: IF LENCASX66 THEN 1250 
1210 GOSUB 1350:REM DATARAD SKRIVS 
1220 IF A< BT THEN 1250 

1230 PRINT"äHELA MINNESAREAN FICK EJ PLATS!* 

1240 PRINT"SISTA ADRESS:*I:C*=STR*< I):GOTO 1270 
1250 NEXT I 

1260 GOSUB 1350:REM SISTA DATASATSEN 

1270 A*=CHR*< 129) + " I *+CHR*< 173)+B*+“ "+CHR*( 164) + “ “+C*+*:“ 

1280 A*=A*+CHR*< 135)+* X : * +CHR*< 15 1 > * * I ,X : *+CHR»< 1 30 ) ♦ * 1 * 

1290 GOSUB 1350:REM UTMATNINGSDEL SKRIVS 
1300 POKE A,0:POKE A+1,0:A=A+2:REM PROGRAMSLUT 

1310 POKE901 ,A-256*INT( A/256)SPOKE905,INTCA/256):SYS900:REM NY BAS1CTOPP 
1320 END 

1330 REM *« SUBRUTIN SOM SKRIVER BASICRAD 
1340 REM 

1350 B=A+LEFK A*)+4:BH=INT<B/256):BL=6-256*BH 
1360 POKE A,BL:POKE A♦1,BH:REM NY RADADRESS 
1370 RH = INT<RN/256>:RL = RN-256*RH:RN=RN+10 
1380 POKE A ♦£ , P.L : POKE A + 3 , RH : REM RADNUMMER 
1390 FOR J=1 TO LEN<A*)-1 

1400 POKE A+3+J,ASC<MID*<A*,J,1)):REM BASICTECKEN 
1410 NEXT J 

1420 POKE B - 1,0:REM RADSLUT 
1430 A=B:A*=CHR*< 131) 

1440 RETURN 
READY. 
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—— r apP ort 

--- 


RÄTTELSER 

I nr 3 har tryckfelsnisse smugit sig in på några ställen. 

Här nedan presenteras de riktiga raderna. 


sid 9 

skall ändras till 

WRZ DE SM0NAM 

QRZ DE SM0NAM 

skall ändras till 

B CG1 Sin Received data 

B CB1 Sin Received data 


sid 36 

skall ändras till 

0075 BND $0079 Även högbyte? 

0075 BNE $0079 Även högbyte? 

skall ändras till 

Efter det att funktionen utförts hoppar 
du till $67E4 

Efter det att funktionen utförts hoppar 
du till $C7E4 


På sidan 39 saknades en programlistning. Vi på redaktionen har valt att vänta med denna listning till nummer 5/6 
då en komplett listning både för VIC-64 och VIC-20 kommer att presenteras. 
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En listning av PAUSE-kommandon saknades i förra numret på sidan 37. 
Den följer här nedan. 


Förklaringar till pause-kommandot 


syntax: p 1—9 


1B00 

JCR $0073 

Ta in Basic karaktär 

1B03 

CMP # $50 

”P”? 

1B05 

BEQ $ 1B12 

Ja, hoppa till 1B12 

1B07 

LDA $7A 

Nej 

1B09 

BNE $1B0D Exil 

Räkna ned Basic pekaren 

1BOB 

DEC $7B 

dit den var 

1BOD 

DEC $7 A 

innan vi använde den 

1BOF 

JMP $07E4 

Hoppa till riktig Basic-tolk 

1B12 

JSR$0073 

Parameter. Ta in parameter 

1B15 

TAX 

x = A 

1B16 

SEC 

större 

1 Bl 7 

SBC # $40 

än ”9” 

1B19 

BPL $1B07 

J, hoppa till exit 

1B1B 

TXA 

A = X 

1B1C 

SBC # $2F 

mindre än 0? 

1B1E 

BMI $1B07 

Ja, hoppa till exit 

1B20 

LDA $1B10, x 

Pause. Ladda Pause-värde 

1B23 

STA $00 

och 

1B25 

JSR $FFDE 

gör 

1B26 

ADC $00 

pause 

1B2A 

STA $00 

och 

1B2C 

JSR $FFDE 

värde 

1B2F 

CMP $00 


1B31 

BNE $1B2C 

tabellen mellan 1B40 — 1B4A 

1B33 

JMP $C7E4 

hoppa till riktig Basic-tolk 


1B40 — 1B4A 00 10 20 30 40 50 60 70 80 90 

OBS! Ställ vectom från maskinkod!!!! 
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Stockholms fondbörs 


Det här programmet som lägger beslag på hela VIC-64:ans 
ramminne kan ta in 7 olika börsdagar för Stockholms Fond¬ 
börs + toppkurserna enligt tidigare noteringar. 

Aktiebolagen är inlästa som datasatser och uppställda enligt 
DN:s modell januari 1984. 


1. Värdemässigt mest omsatta aktier 

2. Övriga industriaktier 

3. Investmentbolag 

4. Bank & försäkringsaktier samt ut¬ 
ländska depåbevis 

5. A:ll-listan 

6. OTC-listan 

7. Väntelistan 

8. Övriga inofficiella noteringar 

Huvudmenyn har följande utseende: 

Filhantering 

Inskrivning av börsdag 

5 senaste börsdagarna 

Histogram 

Uppdatering 

Beräkna kursutveckling 

Köpförslag 

Port följ meny 

Avsluta 

Filhantering 

Menyn omfattar följande punkter: 

Skapa fil på ny diskett 
Läsning av fil 
Äldre kurser 

Första gången man lägger upp filen an¬ 
vänds S för att skapa en fil på en ny di¬ 
skett. I övrigt läser man filen genom att 
trycka på L. Genom att trycka på ä kan 
man läsa in ytterligare ett börsdatum av 
de tidigare datumen som presenteras på 
skärmen. På detta vis har man tillgång till 
samtliga börsdagar som skrivits in. 

Inläsning av en börsdag 

Man börjar med att skriva datum och 
skriver sedan kurserna för 278 aktier från 
AGA A till Tresor B. Kurserna får varia¬ 
belvärdena A(0,i) där i går från 0 till 278. 

Innan en börsdag skrivs in sorteras va¬ 
riablerna A(0,i) — A(5,i) om så att A(l,i) 
får A(0,i):s värden osv. Ifall A(5,i) finns 
inläst vid denna omsortering läggs den 
upp som en fil på disken med datum som 
filnamn. Detta datum lagras också i pro¬ 
grammet under variabelnmanTD(i). Det¬ 
ta medför att man kan göra jämförelser 
över längre tid så småningom. Vid in¬ 
skrivningen av kurser uppdateras också 
de högsta kursvärdena som är registrera¬ 
de under variabelnamn A(7,i). 


5 senaste börsdagama 

Skriver ut kurserna för de senaste börs¬ 
dagarna. 20 aktier åt gången syns på skär¬ 
men med datum överst. Frammatning 
med valfri tangent. Samtliga inskrivna 
börsdagar (maximalt 7 st) + listan över 
toppkurserna kan erhållas på papper. 

Histogram 

Ritar histogram avseende kursutveckling¬ 
en de senaste 6 inskrivna börsdagarna. 
Ifall ett äldre datum finns inläst visas även 
detta i histogrammet för en enskild aktie. 
Varje histogram kan genast erhållas på 
papper. För att komma ur denna pro¬ 
grammodul används ett namn som sak¬ 
nas i registret, man kommer då tillbaka 
till huvudmenyn. 

Uppdatering 

Ger möjligheter att ändra felaktiga note¬ 
ringar. Observera att det senast inlästa 
börsdatumet utgör rad nr 0. Genom att 
skriva datum som företagsnamn kan man 
vid behov även ändra skrivet datum. 
Funktionstangenten Fl avslutar uppdate- 
ringsrutinen. Space-tangenten ger nästa 
aktie på samma datum. Genom att enbart 
trycka på return kvarstår angivet kurs¬ 
värde. 

Beräkna kursutveckling 

1 denna del av programmet kan kursför¬ 
ändringar för valfria tidsperioder beräk¬ 
nas både i kronor räknat och i procent. 
Observera att procentberäkningen inklu¬ 
derar tid. Till exempel en procents ökning 
av kursvärdet på en vecka är 52%:s ök¬ 
ning. 

Listan kan erhållas rangordnad både 
på bildskärm och papper vilket dock tar 
lite tid. 

Köpförslag 

Rubriken är kanske väl pretentiös men 
tanken bakom det här avsnittet är att man 
ska få fram förslag på aktier som dels är 
uppåtgående men dels också har lite ut¬ 
rymme kvar till toppkursen. Rutine visar 


direkt vilken avkastning man får på inves¬ 
terat kapital ifall kurserna fortsätter att 
stiga mot toppkurserna. Vilka aktier som 
sedan verkligen gör det eller ännu knivi¬ 
gare vilka som fortsätter att stiga utöver 
toppkurserna — ja det avgörandet åvilar 
fortfarande placerarens omdöme. 

Efter att kursuppgång har beräknats 
får man fram en rangordnad lista som in¬ 
kluderar aktier som haft en uppgång un¬ 
der vald (valfri) tidsperiod och som har 
sorterats efter utrymme till toppkurs i °7o 
räknat och från nuvarande värde. Denna 
lista erhålles också på papper om man så 
önskar. 

Portfölj meny 

Följande underrubriker nås: 

Inskrivning 

Status och uppdatering 

Avlägsna portfölj 

Register 

Huvudmeny 

10 olika portföljer kan skrivas in med 
10 olika aktier i varje. Vill man ha mer ut¬ 
rymme måste man dimensionera men det 
finns inte mycket ramminne kvar att an¬ 
vända. 

Man kaninte titta på en portfölj förrän 
ett senare börsdatum än köpdatum i port¬ 
följen har skrivits in. Vid ändring i en 
portfölj skriver man om raden för en ak¬ 
tie genom att svara N i programdelen Sta¬ 
tus och uppdatering. Om en portfölj av¬ 
lägsnas uppdateras efterföljande portföl¬ 
jer så att inga tomrum uppkommer. Ru¬ 
briken register visat namnen på ägarna till 
portföljerna samt antal olika aktieslag 
per portfölj. 

Portföljerna kan erhållas utskrivna på 
papper. 

Variablerna i portföljmenyn är bl a 
P$(i) som anger ägarnamn och den tre¬ 
dimensionella variablen P(i, j, k,) där i be¬ 
tecknar portföljens nr. J betecknar en ak¬ 
ties nr. i en speciell portfölj och slutligen k 
står för fyra olia saker. P(i, j, 1) håller re¬ 
da på vilken aktie det gäller (av totalt 278 
st i datasatserna), P(i, j, 2) anger aktiens 
köpkurs, P(i, j, 3) anger antal aktier och 
P(i, j, 4) står för köpdatum. 

Lars-Olof Larsson, Borlänge 
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5 DI MNT < 280 > : DIMR <10,280 > 

10 RERDNT<N> 

12 IFNT<N>="#"THENN=N-1:GOTO20 

13 N=N+1 

14 GOTO10 

20 PR I NT " 35153" s PR INTTRB < 5> " ME NV " 

25 PRINTTRB <4 >" JF ILHRHTERING" 

26 PRINTTRB<4> "HINSKRIVNING BöRSDRG" 

40 PRINTTRB< 4 V SENRSTE BöRSDRGRRNR" 

41 PR I NTTRB < 4 > " JJHISTOGRRM " : PR I NTTRB < 4 > " SUPPORTERI NG " 

42 PR I NTTRB 14 > " SBERäKNR KURSUTVECKLI NG " 

43 PRINTTRB <4 >"HKöPFöRSLRG":PRINTTRB< 4 > " SPORTFÖLJMENV" 

45 PR INTTRB < 4 V BRVSLUTR" 

46 PRINTTRB < 4)" HgJRNGE RLT ": 

4? GOSUB4990 

48 PRINTVT 

49 IF'v'T="F"THEN60 

50 IFVT="I"THEN1000 

51 IFVT= " B " THEN4800 

52 IFVT="R"THENEND 

53 IFVT="H"THEN7000 

54 IFVT="P"THEN200 
56 IFVT="K"THEN2200 
5? IF VT="5"THEN100 

58 I FVT= " IJ " T HEN3000 

59 PRINT"HSSKRIV F,I,S,H,U,B,P,R":FORI = 1TO 1500:NEXT:GOTO20 

60 PRI NTTRB<5> "35JSJ1ENV FÖR FILHRNTERI NG" : PR I NT 

61 PRINTTRBC4>"B3KRPR FIL PÄ NV DISKETT" 

62 F'RINTTRB<4) "S-fiSNING RV FIL" 

63 PRINTTRB<4>"SrLDRE KURSER" 

64 PRINTTRB< 4 >"SHUVUDMENV" 

65 PRINTTRB <4 >" HÖRNGE RLT 

66 GOSUB4990:PRINTVT 

70 IFVT="L"THENGOSUB2000:GOTO20 

71 IFVT="S"THEN:GOSUB1300:OPEN1,8,15,"I":0PEN2,8,2,"NOTERING,S,W":GOTO1100 

72 IFVT="ö"THEN2500 

73 GOTO20 
100 N1=0 

102 FORI=1TON 

105 IFN1=0THENGOSUB150 

1 10 PR INTLEFTT- < NT C I > , 14 >TRB < 14 !:■ ; 

111 FORJ=0TO4 

112 vt=strtcrc:j,i>> 

113 IFLEN <VT ><5THENVT=" "+VT : GOTO113 

114 PRINTVT; 

115 NEXTJ:PRINT 

116 N1=N1+1 

117 IFN1=20THENGOSUB4990:N1=0 

120 NEXTI 

121 GOSUB4990 
130 GOTO157 

150 PRINT:PRINT:PRINTNT < 0 > TRB <15 >; 

151 FORJ=0TO4 

155 PRINTMIDT<STRT<R< J,0> > ,4,4'' + " "; 

156 NEXTJ:PRINT : RETURN 
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157 PRI HT"jBWaKHSKflS HARD-COPV J/N" 

158 GOSUB4990 

159 I FVfO "J" THEH180 

160 OPEN1 ,4:PRIHT# 1,CHRf C 10 > CHRf < 10 > 

161 FORI=0TON 

162 PRI NT# 1 , Nf C I > CHRfC 16 > " 15 " 

163 FORJ=0TO7 

164 Vf=STRf<J#7+16> 

165 V1 =VflL<MIDf<Yf,2,1> > :V2=VRL<MID#CV*.,3,1 > > 

1 66 PR I NT# 1 , C HR T < 16 > CHRf ( V1 > CHRf < V2 > ST Rf < fl C ,T , I > > ; 

167 NEXTJSPRINT# 1, 

168 NEXTI 
170 CLOSE1 
180 GOTO20 

200 REM**#PORTFöLJMENV**# 

210 PR I NT " Z2SI5T : PRI NTTflB< 4 > " BFORTFöLJMENVSIS" 

220 PRINTTflB < 4 >"SSINSKRIVN I NG M :PRINTTflB < 4 > " SJSTflTUS •?. UPPDATERING" 
225 PRINTTflB(4> "IJAVLÄGSNfi PORTFÖLJ" 

227 PRINTTflB<4 >" SFEGISTER" 

230 PRINTTflB<4 >"BHUVUDMENY":PRINTTflB<4 >" SJANGE RLTERNflTIV" 

240 GOSUB4990 

250 IFVf="I"THEN300 

251 I FVf ="R ,, THEN 1400 
255 IFVf="fl"THEN750 
260 IFVf="S"THEN500 

270 IFVf="H"flNDNV=1THEN:NV=0:GOTO1090 
280 GOT020 

300 REM**#INSKRIVNING AV AKTIEPORTFÖLJ*## 

310 PN=PN+1 

320 INPUT-3SBFINGE ÄGARE TILL PORTFÖLJ" ;Pf<PN> 

330 INPUT"HRNGE flNT. VÄRDEPAPPER I PORTF.";flV < PN > 

335 FOR.K= 1 TORV < PN > 

336 PN=PN—1 

337 PR I NT " filElfiliPÖRETflG NR " :K 

340 GOSUB6990 

341 PN=PN+1 
350 P-::PN,K,1> = I 

355 INPUT"SJHNGE KÖPKURS ";P<FN,K,2> 

356 INPUT"öflNGE flNT. AKTIER",-P<PN,K,3> 

357 I NPUT "S-lNGE DATUM " ; P v PN , K , 4 > 

360 NEXTK 

365 PRINT" MBSH ÄSTfl=SPRCE KLART FÖR ATT SPARA=F1" 

367 GOSUB4990 

369 IFflSC< Vf> = 133THEN1090 

370 GOTO300 

500 REM**# STATUS *## 

510 PRI NT ‘‘ HMBK .TATLIS & UPPDATERING" 

515 INPUT“BANGE ÄGARE T. PORTFÖLJ";Pf 

520 FORI=1TOPN 

525 IFF‘f=Pf< I >THEN530 

527 NEXTI 

528 GOT06996 

530 PRINT" SANTAL VÄRDEPflPPER=";AV <I > 

532 F0RK2=1TOAV <I> 
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533 T1 T=STRT < P C I K2 , 4 > > : T2T=STRT. < Fl < 0,0 > > 

534 GOSUB850 

535 PRTMT" flglBH KTIE KURS RNT DfiT #KR ♦/." 

536 PR I NTNT < P < I,K2,1 > > TRB < 13 > P C I ,K2,2>TRB< 19>P< I ,K2,3> THE 124 ) P •' I , K2 ,4 > T RB (. 29 > ; 

537 OK=R < 0 , P < I, K2 ,D > -P C I , K2 ,2 > 

538 PRINTOKTRB < 35 > IHT < OK#1000#PF <K2 > /P < I, K2, 2 > + .5 >/ 10 

540 PRINT" M«a -:QRREKT ?" :GOSUB4990 

541 PRIHT 

542 IFVT= " H"THEHGOSUB550 

543 NEXTK2 
545 GOTO600 

549 REM### UPPDRTERIHG ### 

550 0PEH9,0 

555 PR T HT" SMKF lKT IE KURS RNT DRT " 

556 PRIHTHT < P<1,K2,1 >> TRB < 1 3> P < I,K2, 2> TfiB < 19 > P <I , K2,3> TRB <24 >P< I ,K2, 4 > 

553 IHPUT#9 , VT 

560 FORK1=1 TOH :IFVT=HT <K1> THEH565 

561 HEXTK 1 

562 G0T06996 
565 P<I,K2,1>=K1 

567 PR I HT TRE: < 14 > ; : INPUT#9 ,P(I, K2 , 2 > : PR IHTTRB (. 20 > ; : I NPUT#9, PCI, K2,3 > 

570 PR I HTTRB 1 25 > ; : I HPUT#9, P < I , K2, 4 > 

575 PRIHT 

535 CL0SE9 

586 I FNVO 1 THENHV= 1 

590 RETURM 

600 REM###BERrKNING RV PORTF. VARDE M.M### 

610 FORJ=1TORV CI> 

620 S 1 =P <I , J ,2 > #P < I,J ,3> 

630 S2=R< 0P < I , .J , 1 > > #P < I, J3> 

632 S3=S3+S 1 
634 S4=S4+S2 
636 S5=S5+<S2-S1> #PF <J > 

646 NEXTJ 
648 S6=S4-S3 

650 PR I HT " HSSlRKT I ERHRS VARDE" 

660 PR I HT " BV I D KÖPT I LLFALLE= " S3 
670 PRINT" BNUVRRRNDE VARDE=" ;S4 
680 PR I HT " 3Ö=iHDR I HG I KR0N0R=";S6 
686 PRI HT" JSSFRftM ";P<I,1,4> ; " TILL ";FK0,0> 

690 PRINVSFAMTR PA INV KRP= " ; I HT < 85# 1000/S3+0 . 5 > /1 0 j " 7 ." 

692 PR I HT " äJ :: 'RP I TRL EFTER ETT AR" : PRI HT "MED SflMMR UTVECKL I HO “ ; I HT < S5+33 > " KR" 

693 PRI HT" WWa riHSKRS HRRD COPV J/N?" 

695 GOSUB4990 

697 IFVT="T"THENGOSUB 1600 

715 S1 =0: S2=0 : S3=0 : 84=0 : 85=0 : 86=0 

720 GOTO200 

750 REM### RVLAGSNR PORTF ### 

760 PR I HT " aasJRNGE AGflRNRMN " : IHPUTPT 

765 FORI=lTOPN 

770 IFPT=PT<I > THEH785 

775 NEXTI 

730 G0T06996 

735 FORJ=ITOPH-l 
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790 PT< ..T :> =p$ < J+1 > 

795 RVCJ>=fiVfJ+l> 

890 FORK=1TORV<J > 

805 PCJ,K,1>=P<J+1,K,1) 

810 P<J,K,2>=P<J+1,K,2> 

815 P C J , K , 3 > = P < ,T +1, K , 3 > 

820 P C J , K4 > =P < J+l . K , 4 ) 

825 NEXTK:HEXTJ 

830 PN=PN-1:GOTO1090 

850 REM#*# TIDSBERAKHIHG *** 

852 T1=VRL<LEFTTC T1T,3 > > 

853 T2-VRL C MI D$ < T1 1 ,42 > ) 

854 T3=VflL< MIDT < T1T,6,2 >> 

855 T4=VRL CLEFTT < T2T-, 3> > 

856 T5=VRL <MI O* C T 2 T , 42 > > 

857 T6=VRL < MI DT < T2T6,2 > > 

860 D= < T4—T1> *360 

862 IFT3>30THENT3=30:IFT6>3GTHENT6=30 

863 T7=30-T3-l :IFT7<0THENT7=0 

864 D=O+<30-T3> 

865 T7=T5-T2 

866 IFT7=0THEND=T6-T3:GOTO870 

867 D=D+30*T7 

868 D=D-<30-T6> 

370 PF <K2)=360/D 
875 RETURN 

1000 I FR < 5,0 > O0THEH :GOSUB1200 
1005 PRINT"äflOMSORTERIHG PAGAR" 

1009 F0RJ=5TO0STEP-1 

1010 FORI=0TOM 

1020 R< < J+l >,I> =fl<J , I> 

1030 HEXTI 
1040 NEXTJ 

1055 PRI HT "05153" 

1056 INPUT"RNGE BuRSDRG";R <0,0> 

1060 FORI=1TOH 

1065 PRIHT"SEHRST=":R<1,I> 

1070 PR IHTHT < I > TRB C 13 " = " .r : IHPIJTR < 0I > 

1071 PRIHT 

1075 IFR<0,I>>R<7,I>THEHfi<7,I> =R<O , I) 

1080 HEXTI 
1090 CL0SE2:CLOSE1 
1095 GOSUB1300 

1098 OPEH1,3,15,"I":0PEH2,8,2,"@0:HOTERIHG,S,H" 
1100 J=0 
1 109 FOF! I — ; 0 TijH 

1110 PRIHT#2,fl<J,I> 

1111 HEXTI 
1115 J=J+1 

1117 IFJ>7THEH1122 
1120 GOTO 1109 

1122 PRIMT#2,TDC0> 

1123 IFTD<0>=0THEH1135 

1124 FORI=1TOTD<0> 
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1125 PRINT#2,TD<I) 

112? NEXTI 

1135 IFPN=8THEN11?8 

1136 FORI=1TORN 

1137 PRINT#2,P$<I> 

U40 PRI NT#2 , AV(I) 

1145 FORJ=lTORV<I) 

1150 F0RK=1T04 

1155 PRINT#2,P<I,J,K) 

1160 HEXTK:NEXTJ:NEXTI 
1170 PRINT#2,"#" 

1180 CL0SE2:CLOSE1:GOTO20 

1200 OPEN1 ,S, 15,"I":0PEN2,8,2,STR$<A<5,0))+",S,W" 

1205 TD<0)=TD<0)+1 

1206 TD (. TD< 0 > > =A< 5,0) 

1207 PRIHT" MiAsT ILEN" ;A<5.0>SPRRRS RA DISK" 

1210 FORI=0TON 

1220 PRINT#2,A<5,I) 

1230 NEXTI 

1240 CL0SE2 : CLOSE1:RETURM 

1300 PRIMT:PRIMT" MiflaAR DET OK RTT SPRRR NU J/N "j 
1310 GOSUB4990 :1FV$<>"J"THEN20 
1320 PRINT" FILEN SPRRRS" 

1330 RETURN 

1400 REM*#* REGISTER PORTFÖLJER *** 

1410 PRINT" neftMR EGISTER" 

1415 PRINT" MMSH AMN RNT VÄRDEPAPPER" 

1420 FORI = 1 TORN 

1430 PRINT"ä";P*<I)TAB<20)AV<I) 

1440 NEXTI 

1445 PRINT"MSlEläTRVCK SPRCE FöR FORTS." 

1450 GOSUB4990 
1460 GOTO200 

1600 REM*## HRRD COPV AKTIEPORTFÖLJ *** 

1605 OPEN1,4 

1610 PRINT#1, CHR* < 10 ) CHR$ < 14 ) " RKTI EPORTFöL J " CHR* < 15 ) 

1615 PRINT#1,"DATUM ";A<0,0) 

1620 PRINT#1,"TILLHÖRANDE ";P$<I)CHR$<10) 

1625 PRINT#1,"AKTIEBOLAG KÖPKURS DAT NUV.KURS RNT *KR +Y." 

1630 GOSUB1700 
1633 FORJ=lTOAV<I) 

1635 PR I NT # 1,N#<P< I , J1) ) CHR$ <16>" 15"P<I,J,2> CHR^ < 16 ) " 21 " F' < I , J.. 4 > CHRT < 16 ) " 28 " ; 

1636 OK=A<0,PCI,J,1 > )—P< I, J.,2) 

1637 PRINT#l,R<0,P<I,J,l>>CHR$<16V , 38"Pa,J,3>CHR$a6>"47"OK; 

1638 PRINT#1,CHR$<16>"54"INTCOK*1000#PF<J)/P<I,J,2)+.5>/10 
1640 NEXTJ 

1650 GOSUB1700:PRINT#1,CHR$<10) 

1655 PRINT# 1,"AKTIERNAS VARDE "A<0,0)CHR$< 16) ,, 29"S4 
1660 PRINT#1,"VID KöPTILLFALLET"CHR*<16)"29"S3 
1665 PRINT#1,"FöRÄNDRING I KR"CHR$<16)"29"S6 

1670 PRINT#1,"RANTA PA INVESTERAT KAPITAL"CHR$<16)"29"INT<S5*1000/S3+.5)/10" X" 

1675 PRINT#1,"KAPITAL EFTER ETT AR" 

1676 PRINT#1,"MED SAMMA UTVECKLING"CHR*C 16)"29"INTCS5+S3)" KR" 

1677 PRINT#1,CHR$<10) 
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1679 CL0SE1 
16S0 RETIJRN 
1700 F0RK2=1T057 
1710 PRIHT#1,; 

1715 NEXTK2:PRINT#1, 

1720 RETIJRN 

2000 REM**L«SNING RV FIL*** 

2005 OREN1,8,15," I" :0PEN2,0,2,"NOTERIHG,S,R" 

2010 F0RJ=0TQ7 
2020 FORI=0TON 
2030 INPUT#2,fl < J,I) 

2040 NEXTI 
2050 NEXT.J 

2060 INPUT#2,TD<0> 

2061 IFTD(0> =0THEN2099 

2065 FOR1 = 1TOTD < 0) 

2066 INPIJT#2,TO< I > 

2070 NEXTI 

2099 PN=0 

2100 PN=PN+1 

2110 INPUT#2,P*<PN> ' 

2115 IFP* <PH> = "*"THEH:RN=PN-1:CLQSE2:CLOSE1:RETURN 

2116 I FP* < PN) = "0 " THEN :PN=0 :CL0SE2 :CLOSE 1 :RETIJRN 
2120 INPUT#2,RV < PN) 

2125 FORJ=1 TORV < PN> 

2130 F0RK=1T04 

2135 INPUT#2,P <PN, J , K > 

2140 NEXTK : NEXT.J 
2150 G0T02100 

2200 REM*** KGPFöRSLRG *** 

2210 GOSUB4000 

2215 PRINT" Mi!]g? v'RR GOD DRÖJ" 

2220 FORI=1TON 

2230 IFR C 8,1)C0THEN2250 

2240 R < 10, I ) = I NT < < fi C 7 , I )-R CK 3 , I ) ) * 1000/R C K3 , I ) ) /10 
2250 NEXTI 

2255 PR I NT" HBFÖRETRG KURS TOP XUPP JiUTRVMME" 

2260 FORI = 1 TON-1 

2265 IFR <10,I)=0THEN2360 

2270 FORJ=I+lTON 

2275 I FR < 10 , ..T > =0THEN2340 

2280 IFR <10,I)>R<10,J)THEN2340 

2290 X=R<10,I) :R<10,1)=fl(10,J):R<10,J)=X 

2300 X=A(7,I>:R<7,I)=fl<7,J):RC7,J)=X 

2310 X=R<3,I>:R<8,I>=fl<8,J):flC8,J>=X 

2320 X=Rc K3, I ) :R < K3, I )=R<K3,..T> :R<K3, J> =X 

2330 X*=H*<I) : N* <I)=N*< J):N* <J)=X* 

2340 NEXT.J 

2350 PRIHTLEFT* CN* <I),14)TRB<15)STR*<fl C K3,I> >TRB<20)STR* <fl C7,I>)TRB<25); 

2351 PRINTSTR* < INT < 10*fl<8,1), 'PF< 1) )X10)TRB<32)STR*<fl< 10, I ) ) 

2360 NEXTI 

2370 PR I NT" WMa -iNSKflS HRRD COPV J/N " 

2380 GOSUB4990 

2390 IFV*0"J"THEN:PRINT" WWSM V INLöSNING":RESTORE:GOSUB2000:N=0:GOTO10 
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2400 

OPEHl,4 



2410 

PRINT# 1,CHRT< 10>CHRT< 14 > "UTRVMME I TILL HÖGSTA KURS" 

:PRINT#1, 


2411 

PRINT#1,"LISTR ÖVER AKTIER SOM GATT UPP" 



2412 

PR I NT # 1, " FRAN " A ( K4,0 > " TILL " ;A<K3,0>CHRT< 10>CHRT <15> 



2419 

PRINT#1," NUV. HÖGSTA SENASTE V. TILL" 


2420 

PR INT#1 , 11 FÖRETAG KURS KURS XUPPGAHG M ; 



2425 

PRIHT#1," HÖGSTA KURS" 



2426 

PRINT#1," 



2430 

FORI=1TON 



2435 

IFA <10,1)=0THEN2460 



2440 

PRINT#1 , NT<I>CHRT <16 >"16"A < K3,I>CHRT <16 >"22"R < 7,I>; 



2450 

PRINT#1,CHRT <16)"29"INT <10*A <8, I>/PFO > > X10CHRT<16)"40 

" R 10 , I > 


2460 

NEXTI 



2470 

CLOSE1:VT="N":GOTO2390 



2500 

REM*** IHLASN. ALORE BÖRSDATUM *** 



2505 

PRINT"ZMSINLÄSNING AV ÄLDRE BÖRSDATUM" 



2510 

FORI = 1TOTD < 0 > 



2520 

PRINTI"="TD<I> 



2530 

NEXTI 



2540 

PRINT"SISPNGE MED 1 -"TDC0>" ÖNSKAT DATUM" 



2541 

PRINT"HA=AVLLAGSNA DATUM" 



2542 

PRINT"HH=HUVUDMENV" 



2543 

PR I NT " ÄJ=lNGE ALT " : GOSUB4990 



2545 

X=VAL<VT> 



2550 

IFASC < VT > O57ANDAS0 < VT ) >=48THEN2560 



2551 

IFVT="A"THEN2600 



2555 

GOTO20 



2560 

OPEN1,8,15,"I":0PEN2,8,2,STRT<TD < X > > + ",S,R" 



2565 

PRINT"SISSINLASNING AV FILEN" ;TD<X> 



2570 

FORI=0TGN 



2580 

INPUT#2,A<6,I> 



2590 

NEXTI 



2599 

CL0SE2:CLOSE 1:GOTO20 



2600 

PRINT"SPNGE DATUM SOM SKA BORT MED 1-"TD<0> 



2610 

GOSUB4990 : X=VAL k VT- > 



2615 

TD < 0 > =TD < 0 > — 1 



2620 

FORI=XTOTD<0> 



2630 

TD< I >=TD<: 1 + 1 > 



2640 

NEXTI 



2650 

GOTO2500 



3000 

REM***UPPDATERING*** 



3010 

PR I NT " □SISSJPPDATERI NG " 



3051 

GOSUB6990 



3055 

PRINT"J9RNGE RAD 0-7 



3056 

GOSUB4990 : PRINTVT 



3057 

V=VALCVT> 



3060 

PRINT" JPNGE KÖPKURS ";NT <I>;A <V,I>:IHPUTA< V,I> 



3070 

PRINT" S<LART=F1 NASTA=SPACE" 



3080 

GOSUB4990 



3090 

IFASC < VT> = 133THEN1090 



3100 

1=1+1:GOTO3060 



3200 

REM#**HRRD COPV RANGORDNAD LISTA*** 



3201 

OPEN 1,4: PR I NT# 1, CHRT- < 10>CHRT <10 > 



3205 

PRINT#1,CHRT <14 >"AKTIEUTVECKLING ";A <K4,0 >"-"A <K3,0 > CHRT<15 >CHRT<10>' 
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3210 F'R I HT# 1 , " HÖJDA KURSER " C HR T < 16 > " 16 " U3 

3211 PRINT#1,"OFÖRÄNDRADE"CHR*<16 >"16"U2 

3212 PR INT# 1 , "SÄNKTA KURSER"C HR*<16)"16"IJ1 

3220 PRINT#1,CHR*<10>"FGRETAG AKT. KURS +/- KR +/- ’< 

3225 FORI=1TON 

3230 PR I NT# 1 , N* < I ) CHR* < 16 ) " 20 "fl<K3,I> CHR* < 16) "32"A<9, I ) CHR* <16>"43"fl<8,I> 

3235 NEXTI 
3240 CLOSE1 
3250 RETURN 

4000 REM####KURSUTVECKLING#### 

4001 P0KE532811 

4005 U1=0:U2=0:U3=U 

4010 PR I NT " HSS" : PR INTTAB<4 ) "KURSUTVECKLING" : PR I NT 
4020 F0RK=6TO0STEP—1 
4030 PRINT6—K" "FKK,0> 

4035 NEXTK 

4040 PRINTTAB<4)" HEJANDE MELLAN VILKA DATUM MED U-6":PRINT 
4050 GOSUB4990 

4058 K4=6-VAL<V*) 

4059 T1*=STR*<A<K4,0>> 

4060 PRINTT1*+"-"; 

4061 GOSUB4990 :K3=6-VAL< V* ):IFK3>K4THENPRINT"äS3AR EJ" :FORK=1T03000:NEXT:GGT02G 

4062 T2*=STR* < A < K.3,0 ) ) 

4063 PRINTT2* 

4064 K2=l:GOSUB850 

4070 FORI=1TON 

4071 IFA<K3,I)=0ORfl<K4,I)=0THEN4090 

4080 A<9,I)=A<K3,I)—A<K4,I) 

4081 IFA<9,I)<0THENU1=U1+1 

4082 IFA<9,I)=0THENU2=U2+1 

4083 IFA<9, I »0THENIJ3=U3+1 

4088 A<8, I ) = IHT < A C9, I )*1000*PF < 1 ) /A C K4 , I ) > /10 

4089 PRIHTN* <I)TAB < 20)A <9,I)TAB<25)A<8,1) 

4090 NEXTI 

4100 PRINT" HSJJPPGfiNG ANTAL =";U3 
4110 PRINT"SJFöRÄNDRAT ANT=";U2 
4120 PRINT"HNEDGANG ANTAL =".:U1 
4130 RETURN 
4800 GOSUB4000 

4804 PR I NT » WnKURSLIPPGflNG RANGORDNAT" : PRI NT 

4805 FOR1=1TON-1 
4810 F0RJ=I+1T0N 

4820 IFA < 8,I)>A < 8,J)THEN4850 
4830 X=A<9,I):A<9,I>=A<9,J):A<9,J)=X 
4832 X=A<8, I) : A<8,1) = A8, J> :A<8,J)=X 
4834 X=A<K3, I) : A<K3,1) =A<K3, J) : A<K3J) =X 
4840 X*=N*< I ) :N*< I )=N*< J) :N* < J) =X* 

4850 NEXT J 

4855 PRINTN* C I)TAB <20)A<K3,I)TAB < 25)A <9,I)TAB < 31)A <8,1):NEXTI 
4900 PRINT" MBa öNSKAS HARD-COPV J/N" 

4915 GOSUB4990 

4916 PRINTV* 

4920 IFV*="J"THEHGOSUB3200:V*="N" 

4930 GOTO2390 
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4990 GE T V T:IFVT=""THEN4990 

4991 RE TIJEN 
500O DATA"DATUM" 

5005 DAT A "AGA A" , "AGA AFR" , "AGA BFR" , "ALFA—LAVAL A" , "ALFA—LAVAL AFE" 

5010 DATA "ALFA—LAVAL BFR” , "ASEA A", "ASEA AFR" , "ASEA BFR" , "ASTRA" , "ASTRA FR" 

5020 DATA"BOLIDEN A","BOLIDEN AFR","BOLIDEN BFR" , "CEMENTGT B","CEMENTGJ BFR" 

LIM I H " ELtU I KULUX HR K " , " LLLL I KULUX BFR" , "bKl CSSON A " , " ER ICSSON AFR " 

5040 DATA " ER I CSSON BFR" .. "MODO A" , " MODO Al".. "MODO BFR" , "MUNKSJÖ A" 

5050 DATA"MUNKSJÖ AFR","MUNKSJÖ B","MUNKSJÖ BFR",“PHARMACIA A" 

5060 DATA"PHARMACIA AFR"."PHARMACIA B","PHARMACIA BFR" 

5070 DATA "SCA A", "SCA B", "SCA BFR" , "SKF A", "SKF AFR" , "SKF B".. "SKF BFR"., "SKF C" 
5080 DATA"SKF CFR","SAAB—SCANIA A","SAAB-SCANIA AFR","SW. MATCH A" 

5090 DATA"SW. MATCH AFR" .. "SW. MATCH BFR" , "VOLVO A" , "VOLVO AFR" "VOLVO B" 

5100 DATA"VOLVO BFR","ABV","ABV FR","RHLSELL A" ,"AHLSELL AFR","ALCRO" 

5110 DATA " ANDERSON B " ., " ATLAS COPCO" , "BACHO" , "BECKER" >"BILLEEUO" , "BILSP B" 

5120 DATA"BOFORS","BOFORS FR","BROSTRÖMS","ON A","EDSTRAND B","EDSTRAND BFR" 
5130 DATA "ESAB" , "ESAB FR" , "ESSELTE" "ESSELTE FR" , "EURQC" , "FABEGE" "FLÄKT" 

5140 DATA"GAMBRO B","GAMBRO BFR","GARPHVTTAN","GEVEKO B",”GPAFOPRINT A" 

5150 DAT A " GULDFVND B" "GULLSPANG B" , "GUNNEBO" , "H •<' M B" , "H EX A GON" , "HOLMEN A" 

5151 DATA"HOLMEN B","HUVUDST A","HUVUDST BFR" 

5160 DATA " HÖGANAS " .. " IGGESUND " , " INCENTI VE " , " I NDEPENDENT " , " INFI NA ” 

5170 DATA"IRO","JM B" ,"KEMANOBEL A","KEMANOBEL BFR","KILABERG B","KORSNAS-MARMF 

5171 DATA"LKB B" , "LKB BFR" , "LJUNGDAHLS B" ., "LUNDBERGS B" 

5180 DATA"MARABOU A","MARABOU B","MONARK A" 

5190 DATA "MONARK B","NPL B" ., "NVMöLLA" , " PAPYRUS " , "PERSTORP B", "PERSTORP BFR" 

5200 DATA"PHAROS" , "PLM" ., "PROSRECTOR" , "REINHOLD" , "STC A" , "STC AFR" ., "SABA A" 

5210 DATA"SABA B" , "SANDVIK A" , "SANDVIK BFR" , "SCANSPED B" , "SI AB" ., "SKANE-GRIPEN" 

5211 DATA"SONESSON", "SONESSON FR"., "STH BADHUS A","STH BADHUS B" 

5220 DATA"ST KOPPARBERG","ST KOPPARBERG FR","SVEA" 

5230 DATA"SAA A","SAA B","TRANSATLANTIC","TRELLEBORG B","UDDEHOLM","AKERMANS" 
5240 OATA"ALMEDAHL","ASKEN","B&B INVEST B","BEIJER A","BEIJER AFR" 

5250 D AT A " BORAS INVEST " , " CARDO " , " C ARDO FR" , " C ARNE I GE " , " CUSTOS A " ., " CUSTOS BFR " 
5260 DATA "EKEN" , " EXPORT-1 NVEST" , " FÖRET AGSF INANS"., "HEVEA" , " INDUSTRI VÄRLDEN" 

5270 DATA" INVESTOR" ., " INVESTOR FR" , "OPUS" , "PROMOTION B" , "PROTORP" , "PROVIDENTIA" 
5280 DATA "RANG PREF" , "RANG STAM" , "RATOS", "SAVFEAN B" ., "ÖRESUND" 

5290 DATA"GöTABANKEN", " S-E BANKEN A","S-E BANKEN PREMIE","SKARABORGSB" 

5300 DATA "SKANSKA BANKEN " ., "SUNDSVALLSB " , " SHB " ., " SHB INOEX" , "UPPLANDSBANKEN " 

5310 DATA"WERMLANDSB","ÖSTGÖTABANKEN","ATLANTICA","SKANDIA","SV KREDIT" 

5320 DATA"KONE BFR","NOKIA PREF","NORSK HVDRO", "WrRTSILA" ,"BARKMAN" 

5322 DATA"BERGM & BEV B","KANTHAL A","KANTHAL B","CITADELLET" 

5324 DAT A"DACKE INVEST B","ELDON B","FAGERHULT B","FALUHUS B","FORSHEDA B" 

5326 DATA"GOTLAND REDERI","HEMGLASS","HOLMIA","J & W","NEA","PHILIPSON" 

5328 DATA"REGNBAGEN A","SANDE: & ST B","SCAPA B","SKOOGS B","SKRINET A" 

5330 DATA"SKRINET B","SYDKRAFT A","SYDKRAFT C","TORNET B" ,"UPPSALA—EKEBY" 

5340 DATA"AR ITMOS","GORTHON INVEST","KUBEN","SALENINVEST B","SILA","WIGRAL B" 
5350 DATA"JAMTL FOLKB","NORSK DATA" 

5440 DATA"ARANAS","ARTIN-KORES","CITARENT","COMCEPT","DATA LOGIC","ENATOR" 

5450 DAT A"ENEQVIST","ENSTRÖM","E-GRUPPEN","FINNVEDEN","FJÄLLRÄVEN","GENERATOR" 

5451 DATA"HAKI" 

5460 DATA"HASSELFORS","KABE","KULLENBERGS","LJUSNE KATT ING","LODET","NEDERMAN" 

5470 DATA"HESSIMS","NILS WEIBULL","OEM","PLATZER","ROSLAGSENERGI","POUND OFFICE 

5471 DATA"SJÖLANDER" 

5480 DATA"SPENDRUP","SPORRONG","SVEDBERGS","SV TELEINDUSTRI","SWEPART" 

5490 DATA"THOMEE—HöRLE","TURN-KEV","VIAK","3 K","ARGENTUS","BGB","CONSAFE" 

5500 DATA"DIAB","FORSINVEST","GAB","KABINETTET","KYLMA" 
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5501 OfiTfi"LRNOERIET" , "PflRCON" 

551e DRTfi"PRRLRMENTET","PROGRRMRTOR B","PROGRRMRTOR BFR","PROVENTUS","RRGONRUT' 
5520 ORTR"BRLKEN INVEST","FRGERSTR R","FRGERSTR B","KINNEVIK","HCB”,"HK" 

5530 ORTR"SCHRTULLET" , "SEKRETÄREN","STC VEHTURE","TRESOR fi" ,"TRESOR B" 

6000 DRTfi"#" 

6990 PR I NT " HMFINGE RKTIEBOLRG " ; : INPUTV# 

6992 FORI=0TON 

6993 IFV#=N# < I > THEHRETIJRN 

6994 NEXTI 

6996 PRIHT" HÖSRKHRS I REGISTRET":FORX=1 TO1500:NEXT:GOTO20 
7000 REM***HISTOGRRM***** 

701O GOSUB6990 
7015 HV=0 
7020 FORJ=0TO6 


7029 REM***HöGSTfi VrRDE*** 

7030 IFfi<J,I>>HVTHENHV=fl<J,I> 

7040 NEXTJ 

7949 REM***KLRSSER I V. *** 

7050 FORJ=0TO6 

7060 K<6-J > = INTCfi < J , I > * 100/HV > 

7070 NEXTJ 

7074 HK=0 

7075 FORJ=0TO6 

7030 IFK<J) >HKTHENHK=K (. J> 

7085 NEXTJ 

7090 FORK=HKTO60STEP—2 

7100 IFK/5=INT <K/5>THENPRINTINT <K*HV/100>;TRB <6 > CHR#<186 >;:G0T07120 
7110 PRINTTRB<6 >CHR#<167 >; 

7120 FORJ=0TO6 

7130 IFK<J >>KTHENPRINTTRB< J*3+S)CHRt <18)" "; 

7140 NEXTJ 
7150 PRIHT:NEXTK 

7160 PR INT" SISöjNSKRS HRRD-COPV J/N ? 

7170 GOSUB4990 
7180 IFV*="J"THEN7200 


7190 
7200 
7210 
7215 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 

7300 

7301 

7302 
7304 


PRINT:GOTO7000 

REM*** HISTOGRRM HRRD-COPV *** 

OPEN1 .,4 

PRINT #1,CHR* Cl0 >CHRf(10>CHRf<10> 

PRINT#1,CHR*C 10 >CHR*<10>CHRf <10>CHR#<14 >"HISTOGRRM"CHR$<15 > CHRf<1 Q> 

F O R K=H K T O 6 0S T E P—2 

I FK/5= I HT < K/5 > THENPR INT#1 , I NT < K*HV/100 > CHR-f C 16 > " 05 " C HR# < 186 > ; : GOT07260 
PRINT#1,CHR* <16 >"05"CHR#<167 >; 

F 0 F! J—0 T 01* 

<.J#4+6 > s IFLEN C V* > =2THENVt= "0" +V* 

V1=VRL<M10#< V#,2,1>>:V2=VRL< MID#< V#,3,1>> 

IFK <J >>KTHENPRINT#1,CHR#<16)CHR#<V1> CHR#<Y2)CHR# <18 >" "; 

NEXTJ:PRINT#1,:NEXTK 

PRINT#1," " 

FORJ=6TO0STEP-1 
I FR < J , 0 > O0THEN7310 


7306 NEXTJ 

7310 PF§INT# 1 , CHR#< 14 >N#< I > " " R < J , 0> "- "R<0,0 > 
7315 PRINT#1,CHR# <10 > CHR#<1 Q> 

7320 CL0SE1:PRINT"3" :GOTO7000 
RERDV. 
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rapP° rt 


f l K TIEF OR T F -i. I_J 

DrtTUM 840313 
TILLHÖRANDE LuL 


AKTIEBGlhG 

KÖPKUR 

S DA I NUV.KURS 

HN1 

♦KR 

♦:■; 

ASEA A 

303 

840306 

234 

30 

-3 

-152.8 

NORSK DATA 

330 

840386 

325 

30 

*5 

-77.3 

FABEGE 

35 

840306 

34 

30 

-1 

-146.3 

SKRINET B 

176 

340306 

173 

30 

3 

87.7 

3AA B 

235 

840306 

250 

30 

15 

• J w O ■ O 


AKTIERNAS VfiRDE 840313 32460 

vid köptillfället 32370 

förändring i kr 30 

RANTA PÄ INVESTERAT KAPITAL 14.3 X 

KAPITAL EFTER ETT AR 

MED SAMMA UTVECKLING 36338 KR 


AKT IEPORTFÖLJ 





DATUM 840316 






TILLHÖRANDE MH 






AKTIEBOLAG 

KÖPKURS DAT NUV.KURS 

AN T 

♦KR 

♦7. 

OPUS 

260 840306 

260 

10 

0 

0 

SYDKRAFT A 

505 840306 

510 

10 

5 

85.6 

SONESSON 

513 840306 

524 

10 

5 

34,7 

HOLMEN B 

340 840306 

332 

10 

-8 

-84.7 

SALENINVEST B 

143 840306 

155 

10 

6 

145 

VOLVO B 

426 840306 

446 

10 

20 

183 

KULLENBERGS 

30 840306 

30.5 

10 

. 5 

80 

AKTIERNAS VARDE 

840316 

22575 




VID KöPTILLFrLLET 

22230 




FÖRÄNDRING I KR 
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RANTA F'A INVESTERAT KAPITAL 

46 V. 




KAP ITAL EFTER ETT AR 





MED SAMMA UTVECKLING 

32550 

KR 




FIKT I EPORTFÖLJ 





DATUM 840316 





TILLHÖRANDE LOL 





AKTIEBOLAG KÖPKURS DAT NUV.KURS 

AN T 

♦KR 


ASEA A 303 840306 

303 

30 

0 

0 

NORSK DATA 330 840306 

330 

30 

0 

0 

FABEGE 35 840306 

34 

30 

-1 

-102.y 

SKRINET B 176 840306 

182 

30 

6 

122.7 

SAA B 235 840306 

245 

30 

10 

153.2 

AKTIERNAS VARDE 840316 

32820 




VID KÖPTILLFALLET 

32370 




FÖRÄNDRING I KR 

450 




RANTA PA INVESTERAT KAPITAL 

50 




KAPITAL EFTER ETT AR 





MED SAMMA UTVECKLING 

48570 

KR 
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LÄSARTIPS 


Utnyttja synthezisem 

Vi på redaktionen fick ett brev av Niklas Lundin i vilket han har 
bifogat ett program som använder synthezisem. Ljuv musik 
uppstod. 
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Ackordtransponering 

Jag har gjort ett program som är nästan oumbärligt att ha när 
man ska transponera (överföra) en melodi från en dur till en 
annan. Programmet visar också vilka ackord som ingår i olika 
durer, vilket är en god hjälp för dem som gör egen musik. 

Programmet innehåller även ackordanalyser som visar fin¬ 
gersättning till ackorden. 

Instruktioner finns i programmet. 


Förklaringar: 


Rad 4 rensar skärmen saint sätter ram och 
bakgrundsfärg. 

Rad 5 nollställer ljudkretsen. 

Rad 6 sätter volymen samt Deeay me¬ 
dium för stämma 1. 

Rad 7 sätter bokstavsvariabler för stäm¬ 
ma 1 plus ett GOSUB till rad 500 som frå¬ 
gar om man vill ha instruktioner eller ej, 
samt sätter ny färg på skärmen. 

Rad 8 GOSUB till rad 400 som frågar ef¬ 
ter vilken dur som finns respektive öns¬ 
kas. 


Rad 10 sätter variabler för skärm och 
färgminne. 

Rad 50 GOSUB till rad 190 som ritar upp 
grepptabeller. 

Rad 60 startar tonen i stämma 1. 

Rad 70—160 läser in DATA-satser samt 
ritar ut de önskade ackorden plus ljud. 
Rad 170 stänger av tonen i stämma 1. 
Rad 175 stoppar programmet som kan fås 
att starta igen med ett nedtryck av F-tan- 
genten. 

Rad 180 rensar skärmen och startar pro¬ 


grammet från början. 

Rad 190—370 ritar upp grepptabeller. 
Rad 400—480 innehåller en översikt av de 
olika durerna samt INPUT-satser. 

Rad 500—600 ritar ett mönster samt frå¬ 
gar om instruktioner behövs eller ej. 

Rad 640—685 innehåller instruktioner till 
programmet. 

Rad 700—1158 DATA-satser till ljud, 
teckenpositioner samt namn till de olika 
ackorden. 


RERDV. 


0 REH RCKQRDTRRNSPONERING *** 

1 REM *** fiV JIMMY PERSSON *** 

2 REM *** 1584-03-26 *** 

3 REM ###*******##***##**#***'*##* 

4 PRINT"3":P0KE53231,13:POKE53280- 13 

5 F0RL=54273T054296:P0KEL,0:NEXT 

6 PGKE54296,15 P0KE54277,7=P0KE54278,133 

7 HH=54273■LL=54272 = GOSUB500•P0KE53281,14 POKE53280,14 

8 GO3UB400 

10 S1 = 1024:C1=55256 = S2=1024 = C2=55296 

20 REST0RE 

50 GOSUB130 

60 P0KE54276,17 

70 F0RZ=1T0229 

80 RERDI,J,K,L,M,N,0,P,G,R 

90 IFX=ITHENPQKE31+M,R : P0KEC1+M,0:P0KES2+P,Q■P0KEC2+P,0 = POKEHH,J P0KELL,K 

100 NEXT 

120 REST0RE 

130 F0RZ=1T0225 

140 RERDI,J,K,L,M,N,0>P,Q,R 

150 IFH=ITHENP0KES1+L, R=P0KEC1+L,0:P0KES2+N,0:P0KEC2+N,0 PuKEHH,J P0KELL,K 
160 NEXT 

170 P0KE54276,16 

175 GETfl$ IFR$0"F"THEN175 

180 PRINT"n" : G0T08 

190 print" snaiaiywmästiiHiös strax klrr" 

192 FORT=1TO1000 : NEXT 
195 PRINT"ffl"; 
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200 PRINT3PC<2 )i 

210 FQRR=1T06 PRINT"B"CHR$<176); 

220 FORT=1T04PRINT"■"CHR*'173 >, ; NEXTT 
230 PRINT"B"CHR$(174>-•NEXTR 
240 PRINTSPC<4>; 

250 FORT=1T036 = PRINT"I"CHRS(125 >; : NEXTT 
260 PRINTSPC<4); 

270 FORT=1T06:PRINT"■"CHR*<171); 

280 F0RR=1T04 : PRINT"i"CHR$<123); NEXTR 

230 PRINT"!"CHR$<179); ; NEXTT 

300 W=W+1 E=E+1•IFE<4THEN240 

310 E=0 : IFW=8THEN325 

320 PPINT" ÖPffiPMtM" GOTO200 

325 H=0 

330 PRI HT" Si" PRINTTFHK40* "31" PRINT 
340 PRINT"32" PRINT : PRIHT"3" 

350 PR I NT " ■ PR INT"31" : PR I NT 

360 PRINT"32" PRINT : PRINT" SS " 

370 PRINT"S” PRINT"M?IfieM»MBl!M" ■ FORT=0TO5 PRINT" Bf^NEXT 
390 RETURN 

400 PRINTTAB<5>"!aiS = C-DUR" PRINT 
405 PRINTTPB<5V'SG1 = D-DUR"=PRINT 
410 PRINTTAB<5>" S13S = E-DUR" : PRI NT 
415 PRINTTAB<5>"341 = F-DUR"-PRINT 
420 PRINTTAB<5>"S5B = G-DUR":PRINT 
425 PRINTTAB<5>" 3SB = A-DUR" PRINT 
430 PRINTTAB< 5 ) "5J7S = H-DUR"-PRINT 
435 PRINTTRBC5)"S8S = BB-DUR" : PRINT 
440 PRINTTRB(5)"a9B = EE-DUR" PRINT 
445 PP.INTTRB<4>"S10B = RB-DUR" PRINT 
450 PRINTTRB(4)"SI IB = DB/C#-DUR" 

455 PRI NT "SJ" PRINT ; PRIHTTRB<20)"31 VILKEN DUR GflR" 

460 PRINT : PRINTTRB<20) "3-1ELODIN SOM SKR"-PRINT 

465 PRINTTRE<20)"»TRANSPONERAS? TRYCK" PRINT 

467 PRINTTAB<20>"3SRETURNB EFTER VRL." : PRINT 

470 INPUT" 3RNGE 2*SIFFRR";X PRINT 

475 PRINT : PRINT : PRINTTABC20)"SVILKEN DUR ONSKRS?" : PRINT 

477 PRINTTflB(20>"STRYCK SFETURNB EFTER" PRINT 

478 PRINTTRBt20)"3/AL." PRINT 

430 INPUT" SRNGE 3SIFFRR";H 

490 RETURN 

500 PRINT "SB -1", PRINT'”!! ", 

510 R=fl+1'IFfl<48THEN500 

515 PRINT PRINT:PRINT-PRINT:PRINT 

520 PRINT" 3H-1" j : PRINT"» ", 

530 B=B+1 IFB<43THEN520 

600 PRINT"{MBMBWWKDS" PRINTTRB(6)"SBBEHOVS INSTRUKTIONER <J / N>" 

610 GETRf IFflf="N"THENPRINT" IM" RETURN 
620 IFfl$ a "J"THENPRINT"XJ" GOSUB640 RETURN 
630 GOTO610 

640 PRINTTRB(2)" SKR CKORDTRRNSPONERING" 

642 PRINTTRBC2)- PRINT 
645 PRINTTHB<6>"IDET TREDJE ACKORDET I VRRJE DUR" 

650 PRINTTAB < 6 >"BRASSAR RVEN UTRN SEPTIM<7>." 

655 PRINTTAB<6>"BRCKORDEN UNDER PILRRNR," 

660 PRINTTRB<6)"iTRRNSPONERfiS TILL ACKORDEN" 

665 PRINTTAB<6)"iOVAN RESPEKTIVE PIL." 

666 F'RINTTRB<6>"1VILL DU SEDRN FORTSATTA ATT" 

667 PRINTTAB < 6 V BTRANSPONERA, TRYCK DA NED" 

663 PRINTTAB(6 >"3KF>B TANGENTEN." PRINT 

669 PRINTTAB<6>"iSIFFRORNA I ACKORDEN BETYDER : " 

670 PRINTTAB<6>"1STTB = TUMME":PRINTTAB<6)"B31B = PEKFINGER" PRINTTABC6)"1S2B = L 
ANGFINGER" 

672 PRINTTAB<6 > " ! 33B = RINGFINGER" ; PRINTTABC6)"12WB = LILLFINGER" PRINT 

674 PRINTTABC4) "■ I I I • • • I I I • • • I I I" 

675 PRINTTAB<4>"*• • • I I I • • • I I I • • •" 

685 FRINT"2KTRVCK PA <S> TANGENTEN FOR ATT STARTA!" 

694 GETHf IFA$ O"S"THEN694 
696 PRINT"IM" RETURN 
700 DATAI,34,75,46,686,0,32,0,32,177 
702 DATAI,34,75,124,764,0,32,0,32,178 
704 DATAI,34,75,203,843,0,32,0,32,179 
706 DATAI,45,198,52,692,0,32,0,32,177 
708 DATA1,45,198,53,693,0,32,0,32,177 
710 DATAI,45,193,131,771,0,32,0,32,178 
712 DATAI,51,97,210,850,0,32,0,32,179 
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714 DfiTfll, 51,97,53,699,0/32,0,32,177 
716 DATA1,51,97,135,775,404,3,564, 3,173 
718 DATfil,33,126,214,354,410,6,570,6,173 
( 20i DATHl, 33, 1 26, 64, 704,416, ,,5,6, (, 1 r, 

722 DATfil, 38, 126, 143, 783, 422,4, 532,4,1,8 
724 IifiTfll, 57, 172, 145, 785,428, 1,588, 1, 179 
726 DfiTfll,57,172,70,710,434,5,594,5,177 
728 DfiTfll,43,52,148,788,417,55,577,55,173 
730 DfiTfll 1,43,52,149,789,423,55,583,55,179 
732 DfiTfll,43,52,153,793,429,13,589,13,177 
734 DfiTfll,O,0,154,794,435,13,535,13, 178 
736 DflTfi2, 38,126, 125,765,0,32,0, 32, 177 
738 DATA2,33,126,127,767,0,32,0,32,173 
740 DflTfl2,38, 126,206,846,0, 32, 0,32, 179 

742 DfiTfi2,51,97,208,848,0,32,0,32,173 
744 DfiTR2,51,97,213,353,0,32,0,32,173 
746 DATR2,51,97,129,769,0,32,0,32,177 

743 DfiTfi2,57,172,136,776,0,32,0,32,177 
752 DflTfi2,57,172.138,778,404,4,564,4,178 
754 DflTfi2,43,52,63,703,410,7,570,7,177 
756 DfiTfl2,43,52,141,781,416,1,576,1,173 
758 DATfi2,43,52,224,364,422,5,582,5,180 
760 DfiTfi2,64,188,151,791,428,8,538,8,177 
762 DfiTA2,64,188,230,870,434,6,594,6,178 
764 DfiTfi2,64,188,309,343,417,55,577,55,179 
766 DflTfl2,43,127,152,792,423,55,583,55,148 
768 DRTfl2, 48, 127, 155,795,423,13,533,13,177 
770 DfiTA2,48,127,156,796,435,35,595,35,177 

772 DftTA2, 0, 0,157,797,436,13,596,13,177 
774 DRTA3,43,52,45,685,0,32,0,32,177 

771» DATfi3, 43,52, 128,71*3,0,32,0,22, 1 f 8 

773 DATAS,43,52,124,764,0,32,0,32,179 
780 DfiTfi3,57,172,130,770,0,32,0,32,177 
782 DATAS,57,172,131,771,0,32,0,32,178 
784 DATA3,57,172,132,772,0,32,0,32, 179 
786 DATfi3,64,188,56,696,0,32,0,32,177 
788 DATA3,64,138,135,775,404,5,564,5,178 
790 DfiTfl3,64,188,137,777,410,1,570,1,179 
792 DATI-13,48,127,139,779,416,8,576,8,130 
794 DATAS,48,127,144,784,422,6,582,6,177 
796 DATAS,48,127,223,863,428,3,588,3,173 
798 DATAS,48,127,302,942,434,7,594,7, 179 
800 DATA3,36,35,69,709,417,55,577,55,177 
802 DATA3,36,85,143,733,423,35,533,35,173 
804 DATAS,36,85,150,790,424,55,584,55,179 
806 DATfi3,54,111,312,952,429,35,589,35,148 
303 DATAS,54,111,315,955,430,13,590,13,177 
810 DflTRS,54,111,316,956,435,35,595,35,177 
812 DATA3,0,0,317,957,436,13,596,13, 177 
814 DATfl4, 45, 198,46,686,0,32,0,32, 177 

816 DATA4,45,198,47,687,0,32,0,32,177 
318 DATfl4,45,198,125,765,0,32,0,32,173 
320 DATR4,45,198,204,844,0,32,0,32,179 

822 DATA4,61,126,53,693,0,32,0,32,177 
824 DATA4,61,126,210,850,0,32,0,32,178 
326 DATR4,61,126,211,851,0,32,0,32,179 

823 DfiTA4,34,75,212,852,0,32,0,32, 180 
330 DATA4,34,75,53,698,0,32,0,32,177 
832 DATA4,34,75,136,776,0,32,0,32,173 
834 DATA4,34,75,215,855,404,6,564,6,179 
336 DATA4,51,97,217,857,410,2,570,2,180 
333 DATA4,51,97,65,705,416,3,576,3,177 
340 DATA4,51,97,141,781,422,7,532,7,178 
842 DATA4,38,126,220,860,428,4,588,4,179 
844 DATR4,38,126,71,711,434,1,594,1,177 
846 DATA4,38,126,149,789,417,55,577,55,178 
848 DATA4,57,172,230,870,423,55,583,55,179 
850 DRTA4,57,172,76,716,429,13,539,13, 177 
852 DATA4,57,172,154,794,435,13,595,13,178 
854 DATA4,0,0,155,795,411,2,571,2,179 

856 DATA5,51,97,123,763,0,32,0,32,177 
858 DATAS,51,97,202,342,0,32,0,32, 173 
860 DATAS,51,97,207,347,0,32,0,32,179 
862 DATA5,34,75,52,692,0,32,0,32,177 
864 DATAS,34,75,130,770,0,32,0,32,173 
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3 <56 Dfl Tfl5 • 34,75,209,349,9 .. 32, 0, 32, 179 
863 BflTfl5,33,126,58,698,494,7,564,7-177 
S70 BflTflS.83 126,137,777-419-3-570,3,178 
372 BflTflS,57,172,139,779•416.4,576,4,179 
374 BflTflS,57,172-142-782 422,1,582,1,177 
876 BflTflS,43 52-144,784 428,5,588,5,178 
878 BflTflS,43,52,147,787,434,8,594,8,177 
389 BflTflS.64.188,148.788,417,55•577,55,178 
882 BflTflS,64•188■157-797■423,55•583,55•177 
884 BflTflS,64,188,236,376•429,13,589,13,173 
386 BRTfl5.0,0-315,955-435-13.595,13,179 
338 BflTflS,57,172,124,764,0,32,0.32,177 
890 BflTflS 57,172,125,765,9,32,0,32,178 
392 BRTR6,57.172,126,766,0,32,0,32, 179 
394 BflTflS,33,126,131,771,428,6.588,6,177 
896 BflTflS,38,126,133,773.422,8•582-8,178 
898 BflTflS,38,126,212,852,416,5,576,5,179 
900 BflTflS,43,52,57,697,0,32,0,32,177 

902 BflTflS,43,52-135,775,410,4,570,4,178 
904 BflTflS,43,52,218,858,404,1,564,1,180 
906 BflTflS,64,188,62•702,430,13,590,13,177 

903 BflTflS,64.188,141,781.0,32,0,32,178 
910 BRTR6,64,133,143,783,0,32,0,32,179 

912 BflTflS.64,133,145,735,0,32,0,32,180 
914 BRTR6•48,127,146,786,434,3,594,3,148 
916 BRTR6,43,127,149,789,417.55,577,55,177 

913 BRTR6,48,127-150,790,423,55,583.55,177 
920 BRTR6,36,85,151,791,429,35,539,35,177 
922 BflTflS •36,85,75,715,430,13-594,3.177 
924 BRTR6,36,85,154,794,435,35,595,35,173 
926 BRTR6,0,0,156,796,436,13,596,13,179 
928 BRTR7,64,188,127,767,0,32,0,32,177 
930 BRTR7,64,188,284,924,0,32,0,32,178 

932 BRTR7,64,138,285,925,8,32,0,32,179 
934 BRTR7,64,138,236■926,0•32,0,32,130 
936 BRTR7,43,52,51,691,0,32,0,32,177 

933 BRTR7,43,52,129,769,0,32,0,32,178 
940 BRTR7,43,52,130,770,0,32,0,32,179 

942 BRTR7,43,52,138,773,0,32,0,32,177 
944 BRTR7,48,127,217,857,0.32,0,32,178 
946 BRTR7,48,127,296,936,404,3,564,8,179 

943 BRTR7,43,127,144,734,410,5,570,5,177 
950 BRTR7,36,85,222,862,416,6,576,6,178 

952 DRTR7,36,85,303.943,422,4,582,4,179 
954 BRTR7,36,85,305,945,428,7,588,7,180 
956 DRTR7,36-85,306,946,434,4,594,4,148 

953 BRTR7,54,111,309,949,417,35,577,35,177 
960 BRTR7,54,111,310,950,418,55,573,55,177 
962 BRTR7,54,111,311,951,423,2,583,2,177 
■=•64 BRTR7,40,200, 152,792,424,55,584,55,148 
966 BRTR7,40,200,157,797,429,35,589,35,177 
968 DRTR7,40,200,235,875,430,13,590,13,178 
970 BRTR7,40,200,314,954,435,35,595,35,179 
972 BRTR7,0,0,316,956,436,13,596,13,180 
974 BRTR8,61,126,47,687,0,32,0,32,177 

976 BRTR3,61,126,205,845,0,32,0,32,179 
978 BflTRS,61,126,206,846,0,32,0,32,180 
900 BflTRS,61,126,204,844,0,32,0.32,178 

982 BRTR8,40,200,50,690,0,32,0,32,177 
984 BflTRS,40,200,211,851,0,32,0,32,178 
986 BflTRS,40,200,213,853,0,32,0,32,179 

983 BflTfl8,40,200,292,932,0,32.0,32,180 
990 BfiTflS•45,198,56,696,0,32,0,32,177 
99£ BfiTflS,45,198,58,698,0,32,0,32,177 
994 BflTRS,45,198,59,699,0,32,0,32,177 
996 BflTRS,34.75,137,777,404,2,564,2,178 
998 BflTRS,34,75,64,704,410,5,570,5,177 
1000 BflTAS,34,75,142,782,416,6,576,6,173 
1 fl«2 BfiTflS,34,75,221,861,422,3,532,3,179 
1R04 BflTflS,51,97,223,863,428,7,583,7,180 
1006 BflTRS, 5 1,97,226,366,434,4,594,4, 148 
1 flfig BflTflS,51,97,229,869,405,2,565,2,177 
1010 BflTflS, 33,126,230,370,411,2,571,2,177 
1012 BflTflS, 38,126,231,371,417,55,577,55,177 
1014 BflTflS, 38,126,77,717,423,55.583,55,177 
1016 BflTflS, 38,126,155,795,429,13,589,13,178 
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1018 BATR8.0,0,236,876,435,13,595,13,173 
1020 BATR9,49,200,44,684,0,32,0,32,177 
1022 BflTfiy•40•200,205,345,0.32,0,32,178 
1024 BRTA9.40,200,207,847,0,32,0,32,179 
1026 BRTR9,40, 2ö0,286,926' > 0, 82,0,32 ■ 180 
1028 BATR9,54,111,50■630,0,32,0,32,177 
1030 BRTH9,54,111,51,631,0,32,0,32,177 
1032 BRTR3,54,111,52,692,0,32,0,32,177 
1034 BRTR9,54,111,293,933,0,32,U,32,180 
1036 BRTR3,61,126,216,856,0,32,0,32,177 
1038 BflTfl?,61,126,217,857,0,32,0,32,177 
1040 BRTR3,61,126,213,858,404,5,564,5,177 
1042 BflTRS,45,198,293,939,410,1,570,1,178 
1044 BRTR9,45,198,62,702,416,2,576,2,177 
1046 BRTR3,45,198,64,704,422,6,582,6,17, 

1048 EATA9,45,198,65,705,428,3,588,3,177 
1050 BRTR9,34,75,143,783,434,7,594,7,178 
1052 BRTR9,34,75,63,708,405,2,565,2,177 
1054 BRTR9,34,75,70,710.411,2,571,2,178 
1056 BRTR3,51,97,227,867,417,2,577,2,130 
1058 BfiTflS,51,97,232,872,418,55,578,55,148 
1060 BRTflS,51,97,235,875,423,55,533,55,177 

1062 BflTRS,51,37,236,876,429,13,539,13,177 
1864 BRTR9.0,0,237,877,435,13,595,13,177 
1066 BflTfl10,54,111,44,684,0,32,0,32,177 

1063 BATR10,54,111,45,685,0,32,0,32,177 
1070 BRTR10,54,111,46,686,0,32,0,32,177 
1072 BRTfl10,54,111,287,927,0.32,0,32,130 
1074 BRTfl10,36,85,51,691,0,32,0,32•177 
1076 BRTfl10,36,35,53,693,0,32,0.32,178 
1078 BRTR10,36,85,132,772,0,32-0,32.17? 

1080 BRTfl 10,36,85,210,850,0,32.0, 32,180 

1082 BRTfl10,40,200,56,696,0,32■0,32,177 
1084 BRTfl10,40,200,133,778,404,1,564,1,173 
1086 BRTfl10,40,200,217,857,410,4,570,4,179 

1083 BflTfl10,40,200,219,859,416,5,576,5,130 
1090 BRTfl10,61,126,222,862,422,2,582,2,177 
1092 BflTfi10,61,126,223,863,428,6,588,6,177 
1094 DATA10,61,126,224.864■434,3,594.3.177 
1096 BflTfl10,45,198,305,945,405,2,565,2,178 
1098 BATA10,45,198,69,709,411,2,571 2-177 
1100 BRTfl10,45,193,70,710,417.2,577,2.177 
1102 BATR10,34,75,71,711,418,55,578.55,177 
1104 BflTfl10,34,75,228,868,423.2,533,2,179 
1106 BflTfl10,34,75,74,714,424,55,584.55,177 
1108 BflTfl10,34,75,76,716,429,13,589,13,178 
1110 BflTfl10,0,0,233,873,435,13,595,13,180 
1112 BflTfll1,36,85,45,685,0,32,0,32,177 
1114 BflTfll1,36,85,47,687,0,32,0,32,178 
1116 BflTfl11,36,85,126,766,0,32,0,32,179 

1118 BflTfl11,36,85,204,844,0,32,0,32,180 
1120 BflTfll1,48,127,132,772,0,32,0,32,177 
1122 BflTfll1,48,127,133,773,0,32,0,32,177 
1124 BflTfll1,48,127,211,851,0,32,0,32,178 
1126 BflTfi11,48,127,290,930,0,32,0,32,179 
1128 BflTfll1,54,111,56,696,0,32,0,32,177 
1130 BflTfll1,54,111,57,697,404,4,564,4,177 
1132 BflTfll1,54,111,58,698,410,7,570,7,177 
1134 BflTflll,54,111,139,779,416.1,576,1,178 
1136 BflTfl 11,48, 127,62, 702,4 sLtL , 5,58^-,5, 1 7, 
1138 BflTflll,48,127,144,784,428,2,588,2,178 
1140 BflTfl11,48,127,223,863,434,6,594,6,179 
1142 BflTflll,48,127,225,865,405,2,565,2,130 
1144 BflTfll1,61,126,71,711,411,2,571,2,177 
1146 BflTflll,61,126,150.790,417.2,577,2,178 
1148 BflTfll1,61,126,228,868,418,55,578,55,179 
1150 BflTfl11,45,198,229,869,423,2,583,2.180 
1152 BflTfl11,45,198■75,715,424,55,534,55,177 
1154 BflTflll,45,198,76,716,429,2,589,2,177 
1156 BflTfll1,45,198,77,717,430.13,590,13,177 
1158 BflTfl11,0,0,234,874,435,13,595,13,179 

REflBV. 
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Biorytmer på VIC-20 

Del här programmet är skrivet för oexp. VIC. Det handlar om 
de så populära BIORYTMERNA. 

Rutinen i slutet på programmet för kopiering av skärmen till 
skrivare, är avsedd för 1526 skrivare, man jag tror att den 
fungerar på andra skrivare också. 

Om man inte har något skrivare, kan man hoppa över föl¬ 
jande rader i programmet: 180, 190, 200, 380, 390 samt 
620—760. 


10 REM*BIORYTMER FDR VIC £0. PRG. AV YNGVE LINDBLAD SKALLINGE VARBERG S3.09.05* 
20 GOTO 170 

30 REM RUTIN INPUT AR,MAN,DAG MED KONTROLL AV DITO 
40 INPUTD*: IFLENC DSK > 10THEN40 

50 y=VAL( D*):M*=MID*< D*,6,2):DG*=RIGHT*C D*,2):M=VAL< M*):D=VAL< DG*) 

60 IFY + M + D< 1902ORY + M+D >2042THEN40 
70 IFM>120RD>31THEN40 

80 IF<< M = 40RM=B0RM=90RM=11)ANDD = 3 1>OR< M=2ANDD >29 >THEN40 
90 IFM=2ANDD=29AND<Y/4< >INT( Y/4))THEN40 
100 RETURN 

110 REM GER Fl VÄRDET AV AR.MAN.DAG 
120 I FM >£THEN150 

130 F2 = 365*Y + D+ 31*< M-1) + INT< ( Y-1)/4)- INT<3/4*( INT( < Y-1>/100 > +1> > 

140 RETURN 

150 F2 = 365*Y + D+ 31 *< M- 1> + INTC Y/4)-INT<3/4 *< INT( Y/100) + 1))-INTC .4*M+2.3) 

160 RETURN 

170 Q*="-“ 

160 PR I NT ” JfflfflJ. 1 1LL DU FA RESULTATET SUTSKRIVET PA SKRIVARE?" 

190 GETGT*: IFGT*< >“N“ANDGT*< >"J"THEN190 
200 IFGT*= " J "THENP/.= 10 
2 10 PR I NT " I ORYTM " s PR INTQ* 

220 PR INT“ FÖDELSEDATUM? EX: 1959-06- 15" 

230 REM INMATNING AV FÖDELSE DATA OCH NAMN 

240 GOSUB40:PR INTD*:GOSUB120:F*=D*:F1=F2: INPUT“NAMN "t X* 

250 PRINT" START DATUM? EX:1983-01-01" 
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£60 REM INMATNING FÖR START AV KURVRITNING 
£70 GOSUB40:PR INTD$:GOSUB1£0:XYZ =F£-F1 

£S0 REM START PUNKTER TILL VARI AB. FYS. INTELEKT OCH KÄNSLOR 

£90 FYX=£3*( XYZ/33-INTI XYZ/33> > : INX = 33*< XYZ/33-INTC XYZ/33 > > : KAX=33 *< XYZ/38-INTC X 
YZ/33)) 

300 REM BILD FÖR PRESENTATION AV KURVORNA 

310 X* = LEFT*< X$,7 ) : PR INT"J"X*" "MI D3>< F* , 3 , £ > ; MI DSC F* ,6 ,3 ) ; R IGHT*( F* , £ > ; " w ' _ap 
3£0 PR INT"START: *;D*“ 1 5 10 14 18 £3 £8 33";:REM 1-33 DAGAR FRAN START DA 

330 PRINTQ»; 

340 PRINT"t tfttttt" 

350 PR I NT " BWWWWHWPB " ; Q$ 

380 REM SÄTTER VÄRDET FÖR DE 3 OLIKA KURVORNA TILL PLOTT RUTINEN 

370 NX=44 : FX=0 : GOSUB4£0 : NX=37 : FX=7 : INX=KAX:GOSUB470 : NX = 3 1 : FX=4 : INX=FYX:GOSUB470 
380 REM EVENTUELT UTHOPP TILL PRINTER RUTIN 
390 IFPX=10THENGOSUB630 
400 GOTO580 

410 REM PLOTTNINGS RUTIN 
430 DIMTBC 15 > 

430 FOR I=0TO15 
440 READTB< I) 

450 NEXTI 

460 DATA33,1£3,1£6,97,103,93,137,353,134,£55,££6,336,££5,£54,£51,160 
470 S = INX/10*3: XL=0 : XB=£ * ,i : YL = - 1 . £ : YB= 1 . £ : SS= . 1 
480 FOR I=XLTOXBSTEPSS:X=I:Y=SIN( I+S>:GOSUB500:NEXTI 
490 FORS =1TO1000:NEXTS:RETURN 

500 XSX=NX*< < X-XL >/< XB-XL ) ) : YSX=40*< < YB-Y>/< YB-YL > > S XCX=XSX/2 : YfcX=YSX/2 
5 10 Q=YCX*33 +XCX+7768:Z =YCX*33 +XCX+38488: IX=XSXAND1: JX=< YSX +1)AND 1:KX=< J": - 1 > *< IX 
*3+1 ) 

530 K =PEEK< Q > 

530 FORJ =0TO15 
540 IFK = TB< J>THEN570 
550 NEXTJ 
560 J=0 

570 KX=KXORJ:PTX = TB( KX>:POKEQ,PTX:POKEZ,FX:RETURN 
580 PRINT” EN GANG TILL? J/N" 

590 GET T*:IF T*=""THEN590 
600 IFT$="J"THENRUN 

610 PR I NT 11 LJWMMBBMMJ 3A TACKAR JAG FöR MIG! " : END 
630 REM PRINTER RUTIN FÖR CMD 1536 

630 G1*=CHRS>< 145):0PEN1,4,6:PRINT#1,CHR*<30):CLOSE1 

640 OPEN4,4:PR INT#4:G 1=7653 

650 FORG0=0TO££:G0*=G1*:G1=G1+££ 

660 FORG£=G1TOG1+31:G3 = PEEK( G3 ) 

670 !FG3>1£8THENG3=G3-1£8:G4 = 1:G0$ = G0* + CHR*( 18) 

630 IFC G3>0)*< G3< 33>THENG3=G3+64:GOTO7£0 
690 IF< G3>31>*<G3<64)THEN7£0 
700 I F< G3 >63 > *•: G3< 96 > THENG3 =G3 +33 : GOTO730 
710 IF(G3 >95>*<G3< 133>THENG3 = G3+64:GOTO7E0 
730 G0*=G0S+CHR*( G3> 

730 IFG4=1THENG0$=G0*+CHR*< 146):G4=0 
740 NEXTG£:PRINT»4,CHR*( 14)G0*:NEXTG0 
750 PRINT»4:CLOSE4 
760 RETURN 
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Om tangentbordsbufferten 

Jag har för mig att någon har frågat i VIC 
rapport om hur man slipper frågetecken i 
samband med INPUT. Det är faktiskt 
rätt enkelt, man lägger in färgen man vill 
ha på tecknen i tangentbordsbufferten 
och avslutar ”input texten” med att änd¬ 
ra textfärgen till skärmfärgen. Prova med 
följande rad: 

10POKE36879,27:POKE631,144:POKE 
198,1:1NPUT”EJ FRÅGA” = Ctrl + 
2;EF$:PRINTEF$:END 

Det blir tyvärr två mellanslag innan 
cursorn kommer fram men det är inget att 
göra åt. (Försök inte med delete eller cur- 
sor left för då försvinner första tecknet du 
skriver!) 

Om du har en 64:a tar du bort 
”POKE36879.27” och ser till att skär¬ 
men blir vit ändå. 

Är det någon VIC-ägare som inte tyc¬ 
ker tangentbordsbufferten är tillräckligt 
stor, så skriver du bara POKE649, någon 
siffra under 16 (på 64:an max 14). 

Björn Karlsson, Bollebygd 

Piratkopiering 

Jag läste er artikel i VIC rapport nr 1 1984 
om piratkopiering. Ni skriver där att ni 
tror att alla speltillverkare måste lägga 
sina spel på plug-in kassetter, för att und¬ 
vika kopiering. Detta hjälper emellertid 
inte då det bara är att ändra i några adres¬ 
ser och ett 8 eller 16 K med omkopplare 
för att spara en plug-in. Detta är något 
som de flesta VIC-ägare klarar. Det är 
faktiskt otroligt lätt att kopiera sådana 
spel. Jag tror att jag har funnit lösningen 
på detta problemet, den följer här. 

Placera följande rutin i början på 
romet: 

LDA S6000 Hämta första adressen i 
romet 

PHA Spara den på stacken 
LDA # $OF Lägg OF i accumulatorn 
STA $6000 Spara OF i första adressen 
LDA # $10 Lägg 10 i accumulatorn 
STA $033C Spara 10 i 033C 
LDA $6000 Hämta 6000 till accumula¬ 
torn 

CMP # $OF innehåller den OF? 

BEQ LÅS DATORN: Ja lås datorn 
PLA Nej hämta tillbaka rätt innehåll 
STA $6000 Spara det 

$6000 skall vara hexadecimalt. LDA 
OF skall vara immediate (A9), även LDA 
10 och CMP OF. 

OBS $6000 representerar första adressen i 
romet detta är bara ett exempel om det 
gäller block 5 ändras 6000 till A000. 

Det är viktigt att man senare i program¬ 
met känner av om $033C innehåller $10. 
Om inte den gör det har inte rutinen körts 
och man kan låsa programmet. Om pro¬ 
grammet används rätt blir det omöjligt att 
kopiera en plug-in kassett. 

Magnus Walldal 



Var har VIC-klubben 
tagit vägen? 

Erik Sölving från Spånga har skrivit till 
redationen och frågat vad som egentligen 
har hänt med VIC-klubben? 

Denna fråga tycks vara oklar för en del 
läsare, och därför tänkte vi nu klara upp 
det problemet. 

VIC-klubben startades för några år se¬ 
dan och då innebar den medlemsskap 
med vissa erbjudanden och att man fick 
VIC-tidningen. 

VIC-klubben har idag övergått till 
VIC rapport. 

VIC-klubben har alltså försvunnit och 
istället kan vi erbjuda en prenumeration 
på VIC rapport. 

Ambitionen med VIC rapport är att 
bygga upp ett register över alla VIC- 
klubbar som finns i landet, och att de ge¬ 


nom oss ska kunna få en central hjälp 
med namn och adresser på VIC-ägare. 

Försenad utgivning av VIC 

Försenad utgivning av VIC är någonting 
som Stig Werner från Sundsvall har på¬ 
pekat för redaktionen. 

Vi från redaktionen vill ursäkta oss för 
detta. Förseningarna har haft många 
orsaker. Som de flesta nog redan vet så 
har redaktionen flyttats från Göteborg till 
Stockholm. Tyvärr så är det ni läsare som 
har fått lida för detta. Det tar sin lilla tid 
att få ordning på allting efter en flyttning. 
Flyttningen har också inneburit en stor 
förändring i organisationen, som vi hop¬ 
pas skall bli till er fördel. Så håll ut, vi har 
stora förhoppningar på att göra tidningen 
ännu bättre än vad den är nu. 

Vi hoppas att ni läsare har förståelse 
för detta och att ni liksom vi ser ljust på 
framtiden. 


rf n 


r 
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Datatronic är en av Skandinaviens snabbast växande företagsgrupper 
inom elektroniksektorn, med en omsättning 1983pä 300 milj kr. Datatronic 
marknadsför Commodores datorsystem i Sverige, samt är ett av Europas 
ledande programutvecklings!öretag. med bl a världssuccen Calc Result. 
Inom Sverige är Datatronic marknadsledare pä ekonomirutiner genom 
microdatorn PET samt egna program för bokföring, order/fakturering, lön 


4 ST 

PROGRAMMERARE/ 

SYSTEMERARE 


Du skall ingå i en projektgrupp som arbetar med framtagning av en 
ny generation administrativ programvara för microdatorer. Du 
kommer att arbeta med mycket stimulerande och omväxlande 
arbetsuppgifter, i ett ungt gäng med stor entusiasm och högt 
arbetstempo. 

Med rätt inställning är dina personliga utvecklingsmöjligheter 
mycket goda. 

Vi vill att du skall behärska Basic samt gärna kunna lite om 
assemblerprogrammering på microprocessornivå (6502, 8088). 

Vi arbetar i nya trevliga lokaler i Årsta. 


Kontakta Sture Lindqvist, 
tfn 08-7445920 



datatronic ab 


Datatronic Data AB 

Box 42054,12612 Stockholm 
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JELLY MONSTERS VIC-1905 

1. 2497850 Peter Johansson, LYCKEBY 

2. 1631860 Pelle Gustavsson, SUNDBYBERG 

3. 705980 Anders Hellman, NOL 


RAT RACE VIC-1909 

1. 101520 Pär-Olof Håkansson, BJÄRRED 

2. 96200 Olli Pesonen, ANGERED 

3 . 92000 Jocke Blyborg, STRÄNGNÄS 


SUPERLANDER VIC-1907 

1. 90160 Michael Larsson, SOLLENTUNA 

2. 88000 Fredrik Gustafzon, GNESTA 

3. 86000 Thomas Johansson, YSTAD 


1. 5—0 Lars Kämpe, KVÄNUM 

2. 3—3 STUFFE 

3. 0—2 Dr Darnio 


GRIDRUNNER (LLamasofl) 

(Level 1—) 

1. 351820 Thomas Hartman, LULEÅ 

2. 260120 Jöran Omark, ÄLVSBYN 

3. 221020 Willy Sagefalk, MALMÖ 

JUMPMAN (EPYX) 

(Grand loop) 

1. 54325 Peter Blomgren, HANDEN 

2. 46750 Ola Hjalmarsson, UTANSJÖ 

3. 37175 Mikael Klang, SKUTS 


OMEGA RACE VIC-1924 

1. 125600 Jonas Ragnarsson, BORRBY 

2. 105 100 Anders Ragnarsson, BORRBY 

3 . 40000 Johan Kuuse, GRÅBO 


JUMPMAN JR (EPYX) 

(Valfri hastighet) 

1. 32475 J. Aspengren, ATRIUM 

2. 14600 P. Andersson, VALÅS 

3. 7475 Lars Karlsson, MÖLNDAL 


JUPITER LANDER VIC-1907 

1. 139900 Björn Lindman, HUDDINGE 

2. 108200 Dan Andersson, SÖDRA SANDBY 

3. 74900 Johan Harrysson, VRETA KLOSTER 


DIG DUG (Atarisoft) 

(Valfri start) 

1. 742440 STUFFE 

2. 74800 Joakim Lundberg, L1NDOME 


SPELREKORD 


Ni får observera de krav som ställs under varje spelrubrik 
(ännu bara på VIC-64) t ex ”Grand loop”. 

Om ni ligger på listan men inte har kört t ex ”Grand lo¬ 
op” utan ”Randomizer” så meddela oss snarast (detta 
gäller förstås alla spel). 

Kopiera gärna rutan så slipper du klippa sönder VIC 
rapport. 

SPELREDAKTÖREN 

C.E.J. 


□ VIC 20 □ VIC 64 

Datum 

Namn. 

Adress. 

Postnr . Postadress . 

Spel. 

Erhållna poäng. 

Intygas av målsman eller annan myndig person. 
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Grafik på VIC-64 

Från Birjer Gran fick vi följande programlista. Den kan använ¬ 
das av de som vill pröva på att lägga in diagram i sina beräk¬ 
ningsprogram. Detta program går till både MPS801 och 1526. 




Programförklaring! 

rad 20—40: Läser in lämpliga tecken att 
bygga upp staplar med, både RVS- 
on/RVS-off och resp ASCI-kod. 
rad 50: Kollar om du vill testa program¬ 
met på bildskärm eller printer, 
rad 60—110: Du får mata in valfria data 
(negativa tal tas som 0). 
rad 90: Kollar av max-värdet i inmatade 
data. 

rad 120: Beräknar en faktor (FA) för 
lämplig längd av den längsta stapeln. Ge¬ 
nom att ändra värdet 25 kan olika längd 
fås på den längsta stapeln. Rekommende¬ 
rar dock ett värde som ger relativt korta 
staplar, då annars färgbandet på printern 
förbrukas snabbt. 

rad 130: Om du svarat att printer än in¬ 
kopplad öppnas en fil till denna, 
rad 150: Räknar om dina värden till mot¬ 
svarande stapellängder, med en ”deci¬ 
mal”. 

rad 160: Tar ut ”heltalsdelen” av stapeln, 
rad 170: Räknar om ”decimaldelen” till 
heltal. 

rad 180: chr$( 170) gör en noll-linje. 

rad 190—210: Skriver ut antalet hela re- 

verserade space-tecken. 

rad 220: Lägger ut rätt ”decimal-del” till 

stapeln. 

rad 230: Skriver ut ditt värde efter stapeln. 
rad 250: Stänger filen till printern. 
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Datoms historia 

och uppkomst av Ola Axelsson 

I dagens moderna samhälle tas datorn för en självklarhet. Men 
hur mycket vet vi egentligen om datorns bakgrund? 


Jag tror att kunskaperna om detta prak¬ 
tiskt taget är obefintliga och har därför ta¬ 
git fram lite historik om vår nya 
”kelgris”. 

Idén bakom datorn 

De första idéerna om datorns uppbygg¬ 
nad skapades så tidigt som 1833, av 
engelsmannen Charles Babbage. 

Maskinen, som han kallade ”analy- 
tical engine”, var en slags mekanisk be- 
räkningsmaskin. Den fungerade emeller¬ 
tid inte i praktiken, men principerna har 
lagt grunden till dagens moderna datorer. 

Efter Babbages konstruktion följde 
under senare hälften av 1800-talet otaliga 
projekt. En del framgångsrika, andra 
mindre. 

Man lyckades dock inte tillverka någon 
dator i egentlig mening, utan det var sna¬ 
rare fråga om mekaniska additionsappa- 
rater. 

Det var först in på 1900-talet, som man 
övergav tanken på mekaniska datorer och 
istället började fundera i andra banor. 

En betydelsefull uppfinning som har 
inneburit mycket för datorns tillkomst är 


engelsmannen Flemings radiorör, som 
uppfanns 1904. Denna banbrytande upp¬ 
finning betydde att man kunde börja in¬ 
rikta sig på datorer, innehållande elektro- 
mekaniska och elektroniska kompo¬ 
nenter. 

Världens första dator 

Efter denna uppfinning satte experimen¬ 
terandet fart, men det var först år 1937 
som resultaten började visa sig. 1937 bör¬ 
jade den nu kända elektronikfirman In¬ 
ternational Business Machines, IBM, till¬ 
sammans med Harwarduniversitetet, att 
få fram en fungerande elektronisk dator. 

Man använde sig av en revolutioneran¬ 
de metod, nämligen att reläbestycka da¬ 
torn. Metoden visade sig framgångsrik, 
datorn, som kallades Mark I, fungerade. 
Världens första dator hade tillverkats! 

ENIAC 

Ett år senare, 1946, presenterades en ny 
dator, ENIAC. Även denna var sensatio¬ 
nell i sitt slag, den var världens första hel¬ 
elektroniska dator. Maskinen, som när¬ 
mast påminde om ett monster, innehöll 


hela 18.000 (!) rör och hade en effekt av 
150 kW. Den var 30 meter lång och 3 
meter hög och hade ett djup på en meter. 
Detta föranledde en amerikansk journa¬ 
list att skriva följande. ”It hasthesizeofa 
destroyer and at work it roars like an ad- 
miral”. 

ENIACs upphovsmän var fysikerna 
J W Mauchly och J P Eckert, samt mate¬ 
matikern H Goldsfine. 

Efter Mark I’s och ENIACs genom¬ 
brott började datorer nästan komma upp 
som svampar ur jorden, i exempelvis Eng¬ 
land och USA. 

1949 lanserades en dator kallad 
EDSAC, som ”bara” innehöll 4.000 rör. 
EDSAC anses av många som världens 
första ”riktiga” dator. 

Samma år, 1949, färdigställdes också 
USA’s första dator SEAC. EDSAC var 
en engelsk produkt. 

1952 presenterade John von Neuman 
och H Goldstine en maskin med endast 
2.300 elektronrör och ett förhållandevis 
stort minne. 

Datorn i Sverige 

Vad beträffar datorverksamheten i 
Sverige, så har det funnits intresse redan 
på ett tidigt stadium. 

1950 presenterade några svenska sti¬ 
pendiater en svensk dator. Maskinen var 
emellertid uppbyggd av reläer. Den kalla¬ 
des BARK och var i arbete ända till 1970. 

Vad framtiden anbelangar, så undrar 
man givetvis vad som kommer att ske in¬ 
om dataområdet. Skall biologiska dato¬ 
rer (biodatorer) slå igenom eller... ? 


Kommentarer till Experiment med 


VIC-20 

Redaktionen fick följande brev från Lennart Brynielsson. Det 
behandlar vissa problem som kan uppstå om man simulerar 
med datorn så som är beskrivet VIC rapport årg 3 nr 2. 


Det är en viktig skillnad mellan ett riktigt 
experiment med slantsingling och ett si¬ 
mulerat på dator med hjälp av en slump- 
talsgenerator som t ex RND. 

En slumptalsgenerator i en dator ger, 
allteftersom den anropas, en följd tal där 
nästa tal direkt kan beräknas ur det före¬ 
gående. Inte minsta slump således. Man 
försöker dock att göra beräkningarna så 
att den resulterande följden ser slump¬ 
mässigt ut på så många sätt som möjligt. 


Slantsinglingsexperimenten säger där¬ 
för mer om hur bra RND rutinen skapar 
en talföljd som ser slumpmässig ut än de 
beskriver vad som händer vid upprepad 
slantsinglig i verkligheten. 

Trots detta kan man ha stor hjälp av ex¬ 
periment med slumptalsgenerator för att 
belysa statistiska samband. Men man lö¬ 
per alltid risken att det sätt som talen i 
följden beräknats på (dvs hur RND ruti¬ 
nen programmerats) inverkar på resulta¬ 
tet. 


Alla slumptals generatorer i datorer li¬ 
der av den svagheten att förr eller senare 
upprepas ett tal i följden och därefter så 
fortsätter den på samma sätt som förut. 
Detta ser inte slumpmässigt ut. Man får ju 
samma följd igen. För VIC:s del beror 
dessa återkomster på hur RND startas. 
För det mesta, tex efter RND (-1), sker 
detta först efter 58078—116156 anrop 
och sedan återkommer samma slumptal 
var 58078 gång. Startar man med RND 
(-4) så sker återkomst efter ca 17000 an¬ 
rop och sedan kommer en svit om 724 tal 
om och om igen. Detta kan ge bedrägliga 
resultat vid statistikrexperiment. Det är 
således riskabelt att använda RND för 
långa experiment speciellt efter RND 
(~tT) eftersom man då inte vet när åter¬ 
komsten av slumptalsföljden sker. 
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Ett program för VIC-64 
baserat på Hexpert 


Mikael Kälenniark har gjort ett program till VIC- 64 som heter 
3-D CUBERT. 

Det är baserat på det kända spelet Hexpert. 

Spelets tangenter är följande: 

F 1 = Upp 
F 7 = Ner 
Z = Vänster 
C = Höger 


c . CLR GOSUB50000 RESTORE POKE53280.. 0 : P0KE53281/ 0 : F0RT=1T05 : HP*(T>="00000 ???" 
6 NEXT' PRINT"3" 

19 PR IHT" rr P0KE53272,<PEEK(53272>ANB240)OR12 : GOSUB1000 

25 RERBC 

26 IFC=-1THEN63000 

27 FORD=0TO7 

28 RERDR 

29 P0KE12288+<C#8>+IcR 

30 NEXTB 
35 G0T025 

50 REM **SET IJP 3D CUBERT 64 SCREEN** 

51 PR I NT" r3PWWi!ll!W«!M9***M*D2QC u 

52 PR I NT" l»»MMeDHro0»BHi?C" 

53 PR I NT "l»»MIETB9>itCeiBlt)DeeC " 

54 PR I nt " i»a> itar» r«r.i<i?i'<r«riB3jfjC3c»aiiii!>PjiijiC" 

55 PR I NT " »■■»■»■BPW«r> , TR3?ffCr«TOfjnBagljCftDj0>Pl!0C" 

56 PR I HT " l*M*HnB3$i?C0?n8nE330O2TO(»riB33<?C 0" 

57 PRI NT" >>>Ta~<r«rr<?nr« r 7P,3'«r<r:fj?r>[jrTB3jifi!CijT)jijriB31'jC" 

58 PR I MT"»»> «ar«i , g»f> , TR3fa(iCf»aai<inB3ij9Cijai!6rB3aacaS16(!" 

59 PR I NT" (*iHnB33?0Ci«SJi!@nB3]!iilC8B3!i3nB3S3i?C0TC(»r!BfJi!i3" 

ga pp i NT" »■mnr:ffir<ftrff!3r«r<i::ft , Bj!ii!nB33aCQaBiir3BHa0 " 

61 PR I NT" IK3@S)j|iil2IE3J]l0Ci31BGinB33iiC0»]!0^BDIIi]!" 

62 PR I NT " «ElB3<!i3!CeTOi3inB320CeiJj!0nBS»i?" 

63 PR I NT " l»K33l)3enB33i*lCS?Be^lBSfiii’ 1 

64 PRINT"»*KlB33ijlC0jJii]iniB?Tj!0" 

65 PRINT"»»iK5?Sfiiit^BW30" 

66 PRiNT-iiiKiBieew; 

67 GOSUB5000 

68 REM**SET POSITION OF SPINNINO DISC** 

69 POKEV > 73:POKEV+1,92 

70 REM##SET MULTICOLOUR 1 IN SPRITE 0#* 

71 P0KE53285;2 

72 REM**SET MULTICOLOUR 2 IN SPRITE 0** 

73 P0KE53286, 1 

74 REM******************************** 

75 REM****MflIN PRRT OF THE PROGRAM**** 
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76 REM**»#**#**#*#**#**#*********Hf**** 

80 REM 

81 SX=102 : SV=150 : BX=203 : BV=133 = 80=54272 X=48 = V=139:BO*1000+<10#LV) = GOTO182 

82 S*=STR$(SC):Q=LEN( St >:S$=LEFTf<"00000",6-Q)+RIGHTf(S*,Q-1> 

83 PRINT" OXm" TRE'. 33)"SXGSWI »IdIMin ; SS 

84 PRINT"flttHI£M*IIM"TRB<32) "3LMXGSWI jÖrtHBiBH"; LEFT$<HP*< 1), 5) 

85 pr i nt " axLwmmmm" trb < 33 >" 3=-1 z 1 pnumn"; lv 

86 pr 1 nt M aKmmxmmmmx" trb< 34 >" 3» 1 Rxniiin"; m 

87 PR I NT" »IfllKDaöWecrPl^TBflirii^^ " TRB< 33>" 33SZIXKaBBBH"; MO 
83 BO=BO-10 IFBO=<0THENBO=0 

90 IFM=0THEN20000 

91 JS»PEEK<56321> :KE=PEEK<203> 

32 IFJ3=239THEN180 

93 IFJS=247ORKB=20THENV=V-16 : X=X+24 B1=4:D2=5 Mi="R" POKEV+21,23■GOTO180 
34 1FJ3=2510RKB=12THENV=V-8:X=X-24:Dl=2:B2=3:M$="L":POKEV+21,27:GOTO180 
95 IFJS=2540RKB=4THEHV=Y-24 X=X-8 : M$="U":GOTO180 

36 IFJS=2530RKB=3THENV=V-8 : X=X+8 : M*="B" : GOTO130 

37 IFJS=255ORKB=64THEN180 
100 GOTO30 

180 REM*#MAIN MOVE & CHECK ROUTINE## 

181 POKEV+D1,X : P0KEV+D2,V 

182 REM*#M0VE SPIDER RNB EALL#» 

184 BX-BX-24 BV=BV-16 

186 IFSX>XTHENSX=SX-< <2+< LV/2))> : GOTO183 

187 IFSX<XTHENSX=SX+(<2+ <LV/2> >t 

188 IFSV>YTHENSV=SV- << 2+ <LV/2)>)■GOTO130 

183 IFSV<VTHENSV=SV+C < 2+(LV/2 > >) 

190 PÖKEV+8•SX POKEV+3,SV:POKEV+6,EX:POKEV+7,BV:BV=BV+24 

192 GOSUB300■POKEV+D1,X P0KEV+D2,V:POKEV+8,SX:POKEV+9,SV:POKEV+6,BX:POKEV+7,BV 
133 IFBX=XRND<BV=>VftNDBV*<V+21>THEN61000 
194 I FBX<:=40THENBX=232 : BV= 125 

135 VOL=54236 WFM=54276 RTT=54277:H=54273:L0=54272:POKEVOL,15:POKEWFM,33 

136 POKERTT,15 : POKERTT+1,255 POKEH,72 POKELO,163 

206 P= <<X-24 >/8>+40#( < V-50>/8> : POKEWFM,0 POKERTT,0 

207 IFX=?2RNHV=79RNBSQ=33THEN62000 

208 IFPEEKf1024+<P+96>)=32THENGOSUB10000 
203 IFPEEK<1024+<P+96>)=20THEN300 


215 SC=SC+50 SQ=3Q+1 

221 POKE1024+<P+96>,20 POKE1024+<P+37>,20■P0KE55236+<P+96),7:P0KE55296+<P+37>,7 

300 PEM#*CHECK ROIJTINE FOR COLLISIONS#* 

301 IFBX=XftND(BV=>VRNDBV=<;V+21>THEN61000 

302 IF (. SV+10>=><V+5 • >AND<<SV+10>«<<V+16)>RNDSX=><X+4)RNBSX»<<X+20>THEN61000 

303 IF3V=< < V+16>RNDSV=>< V+5>RNDSX=> <X+4)RNBSX=<(X+20)THEN61000 

304 IF , :SX+24>=>(X+4)RND<SX+24>=<<X+20>RNDSV=><V+5)RNDSV=<<V+16)THEN61000 

305 I FSX=<: <X+20 > RNDSX=>< X+4 > RNDSV=> <V+5 >RNDSY=«V+16 > THEN61000 
400 G0T082 


900 I FM$= " " THENRETIJRN 

902 I FM#*"R " THENMO=MO+1 M#*"" V=V+8 : RETURN 
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rapP° rt 


903 IFM$= M L"THENM0=MO+1 rif=" M V=V+ 16 ' RETURM 

904 IFri*="U"THENH0=MO+l Mf=.r'=V+& PETURN 

905 I FM$= ''•D"THENMO=MO+1 Mf="" V=V+24 PETURN 

999 REM**SPPITE SET UP RND DRTfl** 

1000 V=53248 : P0KEV+2Ö» 1 


1 005 
1010 

1014 

1015 

1016 
1017 
1019 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 
1027 
1023 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 
1 040 

104 i 

1042 

1043 

1999 

2000 
2001 
2002 
2003 


REflDS : POKED,3 : NEXT 
REflDS : POKED,S : NEXT 
REflDS:POKED/S : NEXT 
REflDS POKED/S-NEXT 
REflDS : POKED,NEXT 


POKEV+39,1 
POKEV+48,5 
POKEV+41,5 
POKEV+42,8 
POKEV+43,4 
PGKEV+44.. 9 : RETIJRN 


POKEV+21.61 POKEV+27•O 
POKE204O,200 FORD=64*280TO64*200+62 
POK.E2041,201 FORD=64*201TO64*201+62 
POKE2042/202 F0RD=64*202T064*202+62 
PQKE2043,203 FORD=64*203TO64*283+62 
POKE2044,204 FOPD=64*204TO64*204+62 

POKE2045,205 FORD=64*205TO64*205+62 REflDS:POKED/S•NEXT 
REM ***DflTfl FOR SPRITE O*** 

DATA?/255,64,21/253,80,85/117,34,85,85,84,213,117,92,245,253,124,255,255 
DATA252,61,85,240,13,85,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATA0,0•0,0/0,0,0,0,0,0,0,0 
REM **«DATA FOR SPRITE 1*** 

DATA0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255-192,3,254,112,7,255,56,6,115,156,14 
DflTfll15,140,15,255,140,15,255,140,12,3,152,6,7,48,3,153,224,0,255,128,0,0,0 
DATA0,0,0,0,0,0,0,0,0,0,0,0 
REM ***DATft FOR SPRITE 2*** 

DATA0,0,0,0,0,0,0•0,0,0,00,0,0,0,3,255,0,14,127,192,28,255,224,57,206,96 
DflTfl49,206,112,49,255,240,49,255,240,25,192,48,12,224,96,7,121,192.1,255,0 
DR T A0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
REM ***DATfl FOR SPRITE 3*** 

DATA0,252,0,3,227,0,7,227,128,7,241,123,7,241,128,7,227,123,3,227,O,0,252 
DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DflTflO•0.0.00 

REM ***DflTfl FOP SPRITE 4*** 

DflTflO•62,0.0.127-0,3,201•224.14.73•56•24.255•140.25-182.204,27,54.108•25 
DATA 143■204.13,128,216,8-193•128.0,0,0,0,8.8•O■8•0•0•8•0•8•0•0•8■0.0,0,8 
DflTflO.0.0,0■0•0•0•0■0•0■0•O•0 
REM ***DflTfl FOR SPRITE 5*** 

DATA fl. 0, 0 .0. fi. fi .0.0.0.0.56- 0 0,56,0,0- 124,0.0.254,0,0, 124,0,0, 126-0.0,60 
DflTflO ■ O • 243.0.1.254,0. 1.254 0 . i:. 255,0,7,255,8,199 • 255.0,119,255,0,255,255 
DATA252,115,254,0,192•0,0•0.0•0 
REM ***HI RES CHhRhOTERS*** 

DAT fl ; :2 ■ 0 8 • 0 ■ 0 • 0 • 0,0 • 0 

DAT RO 255•255•255,255•255,255•255 255 

DflTfll.1.3,7.15,31•63.127.255 

DATA2■255,127•63•31■15.7.3,1 


2004 DATA3,128.192•224.240 248,252•254.255 

2005 DATA4,255,254 252■248•240•224 192•128 

2006 DAT A28.255 • 255 ■ 255 • 255 ■ 255 • 255 • 255,255 

2007 DATftj,60•126-102.102 126,126.102•102 
2003 0ATA6•124.102•182.124.124.102,102,124 
2009 DATA7.60•126•102 96•96•102•126,60 

2fi i fl DATAS ,120.124110102,102.110-124,120 
2011 DATA?,126,126-96-124.124,96•126•126 
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2012 

2013 

2014 

2015 

2016 
2017 
2013 

2019 

2020 
2021 
2022 

2023 

2024 

2025 

2026 
2027 
2023 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 
2033 

2039 

2040 

2041 

2042 

2043 
2045 

5000 

5001 
5005 
10000 
10001 
10002 

10003 

10004 

10005 

10006 
10007 
10010 
T 

10020 
1 0030 
10040 


DRTR10,126,126 • 96•124,124.96 ■ 96 • 96 
DRTRl1.60,126,102,96.110, 102»126,60 


10 ; 


DRTRl2,102,102,102,126.126,102.102 
DRTRl3,126,126•24.24 . 24.24.126 , 126 
DRTR14•62,62•12.12,12,103,108 56 
DRTR15 • 102,110,124-120,120,124.110»102 
DRTR16 , 96 • 96,96 • 96 • 96•96 , 126 • 126 
DRTRl7,99,99.119,127.107,99.99,99 
DRTR18»102,118.126,126,126.110»102,102 
DRTR19.60,126,102.102,102,102,126,60 
DRTR21,124,126,102,102,126 , 124 , 96■96 
DRTR22,60,126.102,102.102,110,126.62 
DRTR23,124,126,102,102.124,124.102,102 
DRTR24.60.102 , 96,124,62,6,102,60 
DRTR25,126,126,24.24,24,24,24,24 
DRTR26, 102, 102, 102,102, 102, 102, 126.*0 
DRTR27,102-102,102,102,102,102,60,24 
DRTR23,99,99,99,107.127,127,119,99 
DRTR29 , 102,102,60,24,24,60,102, 102 
DRTR36,102,102 , 102,126,60 , 24,24,24 
DRTR31,126,126,14,28,56,112,126 , 126 
DRTR43,60,126»102,102,102.102.126,60 
DRTR49,24 » 56»120,24,24,24, 126,126 
DRTR50,60,126,110,28,56,112,126 , 126 
DRTR51,60,126,102,28.28»102»126»60 
DRTR52,14,30,62,102,127, 127,6,6 
DAT R53,126 , 126,112,126,14,102,126,60 
DRTR54,60,126»102,124,110,102,126,60 
DRTR55,126.126,102,12,24-24,24,24 
DRTR56»60 • 126,102,60,60,102,126,60 
DRTR57,60,126,102,126,62,102,126,60 
DRTR33,102,102,195,195.102,102.195-195 
DRTR—1 

F'RINT"8W"SFC(31) "fl! Hl 1 111! Hl! 511' HBGHHWOrSGOIk.Z.CTBFHiil CTDJJIWtUM' , 
pRiNT"^e:H»4Äirj! :ai' im :ni! mii w' • 

RETURN 

REM**DERTH ROUTINE** 

P0KEV+D1,X:P0KEV+D2,V 
IFKB=3THENP0KEV+27 , 1 GOTO10005 
IFJS=253THENP0KEV+27 , 1 GOTO10005 
PfikEV+^7 G 

V0L=54296 WFM=54276 : RTTC54277 H=54273 : L0=54272 POKEVOL,15 : POKEWFM»33 
POKERTT i l 

pnRT*VTn22R F0KEV+D2,T : POKEH,T-34 FQKELO,T-75 : MEXT 

FORX=15TO03TEP-.5 POKEVOL, X POKEWFM,129 POKERTT , 15:POKEH,40:POKELO,200 

POKEWFM,0 POKERTT,0 

M=M-1 FORT=1TO1000 HEXT IFM=0THEH32 

POK.EV+27,0 Dl =4 D2=5 ; POKEV+21 , 29 G0T063 


NEX 
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20000 PQKEV+21,0 PR I NT " 1 '; J=2 

20001 FORT =1T024 P0KE646-J PRINTTflBC14)"KEQI SZIW" J=J+1 IFJ=8THENJ*2 

20002 FORTL=1TO10 NEXTTL NEXT F0RT=1T024 PRIMT : FORTL=1TO20 

20003 NEXT NEXT : PRINT"B"; POKE193,0 P0KE53272,<PEEK<53272)flND240)OR4 

20004 K=0 F0RI=1T05 IFSOVRL<LEFT$(HP$< I > , 6) )THENk>I ' 1=5 

20005 NEXT IFK=0THENFORT=1TO1000 NEXT GOTO20030 

20006 POKE193,0 : PRINT TflB(2>"flWfllWRWKUWttlMryOU FlRE ONE OF THE TOP FIVE PLflVERS" 

20007 PRINT")0O»M»MENTER VOUR INITIALSfl INPUTIi IFLEN<I$>>3THEN20050 

20008 FORI=4T0KSTEP-1 HP$<1+1)=HP*(I) NEXT 

20010 S#=STRt(SC> Q=LEN(Sf > :S$=LEFT$C"80000" .6-Q > +RIGHT* <S*,Q-1> •' HP$<IO=S*+" " + I 

$ 

20030 REM #*TOP SCORE*» 

20031 PRINT".TsGr-i"; 

20032 PRINT"S I-iö-DHIMENSION CUBERT!i)64a-I", 

20033 PRI NT "3 L -—- 

20034 PRINTTflB< 13> "3HHLL OF FFlME" PRINT".DÖia«« RANK 3C0RE NftfIE" 

20035 F0RI=1T05 PRINT"^ "I"il “HP#<I) NEXT 

20040 PRINT"»MMMM»WMMM«yLflY AGAINS<V/N> INPUTflt 

20041 I FftiO " V"THENPOKE53280 , 14 P0KE53281,6 PRI NT"TÄT' ’> END 

20044 POKEV+21,61 : POKEV+27,0 SQ=1 MO=l 

20045 P0KE53272,<PEEK<53272> ANB240]>0R12 Dl=4 D2=5 M$="" M=3 : Z=0LV=1 SC=0 GOTO50 
20050 PRINT".'»»MMMMMirTO0 LONG" : FORT*1TO480 : NEXT GOTO20006 

50000 POKE53280,0:P0KE53281,0 

50106 V=53243:X=48 : V=193 ; SC=0 : LV=1 : T1 1 ="000000" BO=500 D1=4:B2=5 : M=3 
58107 M$="" : Z=0 MO=l : SQ=1 
50110 PRINTCHR$ <142) RETURN 

61000 POKEWFM,33 POKERTT,15 FORT=75T0223 : POKEH,T-34 POKELO,T-75 : NEXT : GOTO10020 

62000 REM*TELEPORT CUBERT TO NEXT LEVEL* 

62001 PRI NT "isj" ; F0RT=1T07 PRINTTRBC5) "13! I»BI! " : NEXT 
62010 FORT=92TO403TEP-3 

62015 FORTL=1TO40 NEXTTL 

62016 P0KE53235,2:P0KE53286,1 

62020 POKEV,73=POKEV+ 1 ,T■POKEV+D 1 ,73 : POKEV+D2, T-16 

62025 FORTL=1TO80 : NEXT 

62030 P0KE53235,1 P0KE53286-2 

62040 NEXTT 

62041 PRINT"$3", : F0RT=1T07 PRINTTflB<5> "13 >»»l " : NEXT 

62050 LV=LV+1 

62051 Zi=".'^«isnjrein" Xf="£IPP HSRI GZFI LSUUIW IRVIW PICIP" R=1 B=1 

62052 FORTL=1T033■PRINT"3"LEFTS( ZS ,fl)RIGHT$ <X*,B);LV : fl=fl+1 B=B+1 

62053 IFfl=12THENfl=l 

62054 FORT=1TO10 : NEXTT:NEXTTL 
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TELED ATA 

Att kunna använda sin dator för kommunikation är tämligen 
nytt på marknaden. Med teledata erbjuds helt unika möjlig¬ 
heter, både för familjen och för företagen. 


Vad är teledata? Man skulle, på ett enkel 
sätt, kunna svara på den frågan med ett 
enda ord: kommuniktion. Teledata är 
kommunikation. 

Men visst behövs det en bättre förkla¬ 
ring än så. Teledata gör att man kan an¬ 
vända VIC 64 och även den nya bärbara 
datorn VIP 64 till att ta emot och sända 
videotextbilder. 

Datan 

= ”kommunikationsnät” 

För att kunna använda VIC 64:an eller 
VIP 64:an är det några saker man måste 
ha och några saker man måste göra. 

Förutom dator och videotexprogram 
behöver man modem och anslutnings- 
kabel. Handic Software AB lanserar nu 
ett modem (Han Mod) som gör det möj¬ 
ligt att använda datorn som terminal till 
existerande databaser, d v s att man kan ta 
emot, editera och sända videotexbilder 

Tekniken att kommunicera med en 
större informationsbas kallas VIDEO- 
TEX. Tjänsten har redan tagits i bruk ge¬ 
nom Televerkets Datavisionnät. 

Datavision 

Detta kommunikationsnät innebär att 
man utnyttjar telenätet. Man kan både ta 
emot och skicka information i form av 
text och enklare bilder. 

Att man använder ordet kommunika¬ 
tion när man talar om Datavision är just 
för att man kan föra ihop information i 
båda riktningarna. 

Du kan alltså tala med andra i Datavi¬ 
sion. Som till exempel begäran informa¬ 
tion, skicka beställningar, meddelanden 
etc. Med Datavision kan Du också kom¬ 
ma i kontakt med en massa olika infor- 
mationslämnare. 

Teledata innebär alltså att man kan få 
information från de mest frekventa data¬ 
baserna i Sverige och utlandet. 

De mest kända databaserna i Europa är 
Viewdata, Prestel, Datavision, Telebild, 
Postel, Micronet, Vidi tel, Liber osv. Det 
bildas fler och fler hela tiden. 


Vad har man för nytta av en 
databas? 

Denna typ av databas som de ovannämn¬ 
da representerar arbetar enligt en inter¬ 
nationell standard för datakommunika¬ 
tion. 

Uppläggningen består av en sk meny¬ 
form. Det kan vara av vikt att i detta sam¬ 
manhang nämna att, samtliga enheter i 
systemet har en sådan karaktär att inga 
speciella datakunskaper krävs för instal¬ 
lation och användande av teledata. 

Vad kan då dessa baser innehålla? 

Här nedan följer några exempel. 

— Spel 

— Nyheter och väder 

— Biljettbeställningar 

— Konsumenttester 

— Börsinformation 

Hur får jag kontakt med en 
databas? 

För att använda sig att teledata gör man 
följande. Koppla ihop utrustningen och 
slå till strömmen. Ring därefter upp ett av 
de speciella videotextelefonerna. För 
dessa ”samtal” debiteras man endast för 
lokalsamtal. Det spelar alltså ingen roll 
varifrån du ringer. Tryck på DATA- 
knappen på modemet och lägg på luren. 
VIC:en eller VlP:en är nu ”on-line” med 
videotexdatorn. Nu kan man börja ta 
fram information. 

Datorn kan lagra 26 sidor som man se¬ 
dan kan bläddra igenom. För att få lägre 
kostnad kan man lagra 26 bilder i datorn 
och sedan koppla ner förbindelsen. Det 
finns tre olika teckenuppsättningar som 
man kan välja mellan: svenska, engelska 
och tyska. 

Hur man ringer upp till 
Datavisionen 

Du börjar med att slå på terminalen. Se¬ 
dan ringer du 0026 som är numret till 
Datavision. Det är samma nummer över 
hela landet, och kostar bara en marker¬ 
ing, varifrån du än ringer. Skriv sedan ditt 
nummer på tangentbordet eller pä fjärr¬ 
kontrollen. 



databöcker 

för 


VIC20 

VIC64 

SPECTRUM 

Beställ vår lista 
ob -12 mo 


PROGRAMDISTRIBUTÖREN 

Box 3009 

S 5S0 03 Linköping. Swerten 

V —_ 


PA Datorprodukter 

Program till VIC-64och VIC-20 

KARTOTEK: Generellt kort- 
lådesystem för registertillämp¬ 
ningar. 

NATTJUVAR: Äntligen ett 
svenskt AD VENTU RE- 
program till VIC-64 

GRAPH-PACK. Tio nya 

kommandon för höggrafik och 
sprites. 

SPRITE-ED: Definiera och 
editera sprites. 


PA Datorprodukter HB 

Gnejsvägen 22 
43700 LINDOME 
Tel 031/763394, 762225 
Pg 19485-2 
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Efter detta skriver du ditt hemliga 
lösenord, som är kopplat till abonnent¬ 
numret. Detta lösenord är till för att ingen 
annan än du ska kunna utnyttja ditt 
abonnemang. 

Hur man får kontakt med en 
databasagent 

Att få tillträde till de olika baserna samt 
in formation kostar en liten slant. Det bäs¬ 
ta är om Du är intresserad, att ta kontakt 
med respektive databasagent för mer in¬ 
formation. Här nedan följer några data¬ 
baser du kan ringa. 

— Viewdata AB, 08-7430665 

— Datavision, 018-90100 
och även 

— Videotex Telematics AB, 08-994430 
som förmedlar kontakter med: 

— Bildschirmtext (Tyskland) 

— Viditel (Holland) 

— Liber (Sverige) 

— Teleset (Finland) 

— samt ett antal baseriUSAochCanada. 


Teledata 

Teledata handlar alltså om: 

— den enskilde och andra enskilda 

— den enskilde och företaget 

— den enskilde och myndigheter och 
organisationer 

Vad kan man då använda teledata till i 
praktiken? 

• Man kan köpa — byta — sälja, dvs en 
sorts Gula Tidningen. 

• Transaktioner med banker. 

• Journalister kan direkt skriva sina ar¬ 
tiklar och sända dem till redaktionen 
via Teledata 

• Man kan boka biljetter hos resebyrå¬ 
er, teatrat etc. 

• Tidningsstatistik — en databas som 
innehåller artiklar i tidningar. Man 
slår in ett sökord och får därefter upp i 
vilka tidningar detta ämne har be¬ 
handlats. 

• Man kan få fram nyheter och väder. 

• Man kan få tillgång till börskurser, 
räntenivåer och valutakurser. 

En av de viktigaste fördelarna är nog 
ändå att kunna ta emot och lagra pro¬ 
gram i skivminnet. På så sätt kan en sälja¬ 
re på kundbesök ringa upp kontoret och 
på tillgång till datorns program och där¬ 
igenom, på platsen, kunna göra fullstän¬ 
diga kalkyler. 

En annan möjlighet är att sända med¬ 
delanden till varandra via datorn. En 
sorts brevväxling kan man kalla det. 

Ja, möjligheterna med teledata är 
oändliga. Vi kan ännu inte gissa oss till 
alla de möjligheter som teledata kan er¬ 
bjuda i framtiden. 



VIC Auto-meny 
för VIC-20 

VIC rapport fick ett brev från Joakim Krassman. Joakims 
största intresse är datorer. 

I brevet finns ett programförslag som kallas VIC auto-meny. 
Detta program lägger man i början av bandet. När man startar 
VIC:en ger man instuktioner vilket program man söker. Band¬ 
spelaren spolar sedan automatiskt dit. 


Det här programmet förvandlar din VIC- 
20 med bandspelare till en floppy. Nästan 
i alla fall. Progrmmet består av en meny, 
där man väljer sitt program. Därefter ber 
VIC:en dig att trycka på FFWD, dvs 
framåt på bandspelaren. När du gjort 
detta så svarar VIC:en att han spolar till 
ditt programval. 

När VIC:en har komit fram till rätt 
ställe, stänger han av bandspelaren. Då är 
det bara att skriva load, och programmet 
bandas in. 

På det viset kan man spara en oändlig 
massa tid. Man kan kanske gå och ta en 
nattmacka medan VIC:en spolar till ditt 
favoritprogram. 

För att få det hela att fungera tillfreds¬ 
ställande så måste det ligga ett program 
där VIC:en stannar. Om VIC:en har spo¬ 
lat förbi så hittar han inte programmet. 
Gör då på följande sätt: 

1. Spara auto-meny i början på ett oin¬ 
spelat band. 

2. Kör progrmmet. Som ditt val av pro¬ 
gram så svarar du med 1. Gör sedan 
allt som du instrueras att göra. När 
han har spolat klart tar du ut kasset¬ 
ten. Nu sparar du den som den är 
framspolad. 

3. Nu när du har gjort ett ballt program 
som du vill ha kvar plockar du fram 
kassetten med auto-menyn. Om du nu 
kör auto-menyn så stannar VIC:en 
där ditt balla program börjar. 
Programmet har bara 3 programexem¬ 
pel, men det går att utöka med hjälp av 
värdestabellen. Värdena i tabellen är för 
variabeln T. Titta på list 150—170. Om ni 
skulle få problem med programmet så 
kontakta mig genast, så ska jag hjälpa er. 

Om du efter att ha läst denna artikel 
har kommit på fler användnings¬ 
områden, eller vill att vi ska ta upp något 
specifikt område, har några frågor, är du 
välkommen att skriva till VIC rapport. 


Om ni inte har lust att knappa in auto- 

meny så gör jag det för 30:-1- ett band. 

Joakim Krassman 
P.S. Jag önskar också brevväxling och 
programväxling med Hackers. 

Programförklaring 

rad 10 rensar skärmen, och pokar in ny 
bakgrundsfärg. 

rad 20—80 skriver ut titel och kassettinne¬ 
håll. 

rad 90 pokar ut ett reverserat frågetecken 
på skärmen. 

rad 100 frågar efter vilket program som 
önskas. 

rad 110 skärmkoden tilldelas av svaret, 
rad 120 pokar ut svaret på skärmen där 
frågetecknet befinner sig. 
rad 130—170 variabeln tilldelas av svaret, 
för tidsfördröjning i rad 200 
rad 180 skriver ut att den väntar på tan¬ 
genttryck på bandspelaren. Och 
väntar... 

rad 190 skriver att den spolar till valda 
programmet. 

rad 200 tidsfördröjning samt stänger av 
bandspelaren. 

rad 210 kallstartar Vicen:end 

Värdestabell 


Antal varv 

Värden 

25 V 

T = 4800 

50 V 

T = 9600 

75 V 

T = 14000 

100 V 

T = 18500 

125 V 

T = 22500 

150 V 

T = 26800 

175 V 

T = 31000 

200 V 

T = 35400 

osv 



OBS! Värdena kan skilja sig beroende på 
bandkvalité mm. 
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SE HIT ALLA LÄSARE 


Tänk dig möjligheten att via 
din VIC-dator kunna köpa, 
sälja och byta saker. Eller 
efterlysa personer. Kanske 
söka arbete eller annonsera 
om arbete. Med andra ord 
använda din VIC-dator som 
Gula Tidningen. Den enda 
skillnaden är att det är 
kostnadsfritt. 

1990 tänker du, då kan man möjligen 
göra det. Nej säger vi på redaktionen. 
Från och med idag 1984 kan man göra 
det. 

Vi på V1C rapport har nämligen beslu¬ 
tat oss för att öppna en databank för alla 
VIC-ägare. 

Databanken kommer att vara öppen 
för alla. Det krävs alltså inga anmälnings- 
avgifter eller liknande. Det enda som 
krävs är att man har en VIC-64 eller en 
V1P-64. 


Vad skall databanken inne¬ 
hålla 

Jo den skall fungera som en sorts Gula 
Tidningen. Man skall alltså kunna sätta in 
annonser, och läsa andras annonser om 
man använder sig av Teledata. 

Hur gör man då om man vill annonsera 
genom VIC rapports databank? 

Det är mycket enkelt. Först och främst 
måste man självklart ha ett modem och 
anslutningskabel som man kopplar ihop 
med datorn. Sedan kopplar man in ett 
teledataprogram. Därefter ringer man 
upp vår databas på nummer 08-190619. 
På skärmen får du sedan instruktioner. 
Man kan som användare gå in och söka 
efter intressanta annonser. Eller lägga in 
en egen annons. På skärmen Finns utförli¬ 
ga instruktioner för varje alternativ. 
Databanken kommer att rensas en gång i 
veckan, vilket innebär att du måste lägga 
in din annons varje vecka. Databanken 


kommer att rensas varje måndag kl. 9.00. 
Detta innebär att varje måndag från och 
med kl. 9.30 kan du lägga in din annons 
och den kommer att finnas där fram till 
nästa måndag. Självklart går det bra att 
lägg in annonsen när som helst, men oav¬ 
sett när den läggs in kommer den att för¬ 
svinna på måndagsmorgonen. 

Tanken bakom databasen 

Tanken bakom databasen är att i första 
hand erbjuda våra läsare en extra service. 
När vi startat upp banken och närmare 
kan se hur den används kanske vi väljer 
att dela upp den i fler avdelningar. 

Men som sagt var, den famtida upp¬ 
läggningen får användare styra. Har ni 
några förslag sä är vi givetvis intresserade 
av detta. 

Detta är ett unikt tillfälle för alla VIC 
rapportsläsare och alla VIC-ägare. Så 
prova vår nya databank. 


VICMON flyttar 

VICMON är en utmärkt monitor att jobba i för den assembler- 
intresserade ”VICKAREN”. Monitorn har alla de finesser 
man normalt kräver av en monitor samt en del extra som 
underlättar livet för oss ”fartdårar”. 


Ett problem som kan uppstå när man job¬ 
bar med en monitor, vad den än heter, är 
att monitorns eget program ligger på den 
area där man själv vill lägga sitt program. 
I VICMON’s fall så innebär detta att man 
i så fall skall jobba på $6000 och uppåt. 
Detta är inte allt för ovanligt, då detta är 
en utmärkt area att lägga program på, 
som man senare vill lägga i EPROM, för 
att få tillgång till dem snabbt. Dyrare och 
mer professionella monitorer är ofta re- 
kolerbara på det ena eller andra sättet, 
men att VICMON hade denna egenskap 
hade i alla fall jag ingen aning om innan 
jag gjorde en närmare undersökning. Det 
är denna ”efterforskning” som jag skall 
redovisa här så att ni alla ” VICKE” gum¬ 
mor och gubbar i detta avlånga land slip¬ 
per plocka fram förstoringsglaset och 
dom andra detektivattiraljerna. 

VICMON ligger ju som bekant med 
start på $6000 (24576) och sträcker sig 


upp till $6FFF (28671), dvs upptar 4K 
minne. Detta är inte helt sant för ca 300 
bytes i slutet används ej. 

För att starta monitorn så skriver vi 
SYS 24576 

vilket helt enkelt är ett anrop till det första 
bytet i programmet. Om vi nu vill flytta 
VICMON till en annan area så är detta en 
värdefull information och vi vet alltså att 
det bara är att ”SYSA” till det första 
bytet på den nya arean för att köra igång. 
En lämplig area, i alla för den som har 8K 
extra minne, att lägga VICMON på är att 
flytta den ned till $2000 (8192). Låt oss tit¬ 
ta på hur detta går till, det är sedan lätt att 
utifrån detta flytta den till en annan area 
helt efter godtycke. 

När du kört igång VICMON på vanligt 
vis så måste vi alltså först flytta ned hela 
programmet till $2000. Detta gör vi med 
T 6000 7000 2000 

där T står för TRANSFER (flytta) och vi 


talar om att koden mellan $6000 och 
$7000 ska flyttas ned med start på $2000. 

När vi slagit RETURN så Hyttas koden 
ned och programmet ligger på den area vi 
önskade. Problemet nu är bara att pro¬ 
grammet innehåller en del absoluta refe¬ 
renser (JSR, JMP etc) som alla riktar sig 
mot området $6000—$7000. Dessa refe¬ 
renser måste vi ta och åtgärda så att de 
istället pekar på minnespositioner i om¬ 
rådet $2000—$3000. Detta gör vi med N- 
kommandot (NEW LOCATOR). Detta 
kommando, eller snarare programmet 
bakom det, söker upp alla referenser in¬ 
om ett område och adderar en konstant 
till dessa. Kommandot kräver dock att vi 
har en uppfattning om hur vår kod ser ut 
på ett ungefär eftersom det inte fungerar 
något vidare på areor där vi inte har 
någon kod. I VICMON’s fall så har vi 
kod mellan $6000—$6D76 och det reste¬ 
rande utrymmet $6D76—$6FFF, består 
uteslutande av tabeller och data. I den nya 
miljö vi nu lagt VICMON så sträcker sig 
koden alltså mellan $2000—$2D76 och 
för att anpassa denna kod till dess nya po¬ 
sition så skriver vi 

N 2000 2D76 C000 6000 6FFF 
där 

$2000—$2D76 är det område som vi vill 
bearbeta 
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SCOOO är den konstant som skall adderas 
till alla absoluta referenser 
$6000—SFFF talar om att de refererenser 
som skall ändras skall ligga i detta inter¬ 
vall. 

Ett förtydligande kanske behövs an¬ 
gående konstanten som vi adderar med. 
Låt oss studera detta i ett exempel 
$ 6111 
+ $ COOO 
$12111 

Eftersom en adress alltid är ett 16 bitars 
tal så kan vi glömma den mest significanta 
siffran (den vänstra) och vi får det korrek¬ 
ta resultatet $2111. Detta är precis det sätt 
som V1CMON använder när komman¬ 
dot körs. 

När vi nu har anpassat programmet till 
den nya miljön kan man förledas att tro 
att det bara är att köra igång. Icke så! 

1 själva programmet finns nämligen en 
del vektorer, dvs adresser som vi också 
måste ändra för att fullständiga vårt mål. 

Dessa vektorer hittar vi i intervallet 
$6E7F ($2E7F) och $6EB5 ($2EB5). N 
kommandot kan även användas för att 
ändra om dessa om vi på slutet gör tilläg¬ 
get ” W” som talar om att det är en vector 
tabell som vi vill ändra på. Vi skriver allt¬ 
så 

N 2E7F 2EB5 C000 6000 6FFF 

Nu har vårt program blivit flyttat till en 
ny area och gör att köras med SYS 8192 
(från Basic) när helst vi önskar. 

Om man tillhör dom smartare bland 
djuren så tar man naturligtvis och spar sin 
”nya” version på band innan man testar. 
Ifall man har gjort något fel och hela sy¬ 
stemet brakar ihop (åtgärdas med ström¬ 
brytare av/på) totalt. Detta gör vi med 

S ”VICMON/2000”, 01, 2000, 2fff 

Senare när man vill ladda sin nedflytta¬ 
de version så får man skriva LOAD 
”VICMON/2(XX)”,l, 1 

så laddas programmet efter den 
HEADER som står först på bandet. Om 
man bara skriver LOAD så läggs det istäl¬ 
let i början av minnet och det blir knappas 
så bra i alla fall, om man nu inte har 
minnesstart vid $2000. 

Till sist hoppas jag att detta lilla 
”trick” skall vara till någon hjälp i 
”assemblerslitet”. 


SKRIVARE SÄIJES 

Commodore 1526 till VlC-20och VIC-64 
säljes. 

Tel 031/76225 
SÄIJES: VIC-20 

+ bandspelare, Superexpander, Schack, 
Användarmanual, Programmerings¬ 
handbok Basic på VIC-20 och Assembler 
på VIC. Pris: 2000:— 

Tel 0650/12426, Tomas 


GRATISANNONSER 


VIC-20 X CBN 64 

VIC-64 program bytes. 

Till salu: 2 st expansionsenheter, 6 st por¬ 
tar på bägge. VIC-1010950:—, VIC-1020 
1400:— 

Niklas Björklund, Bråviksvägen 18, 
603 65 Norrköping, tel 011 /1182 95 
Kalkyl för husmäklare 
Bli din egen husmäklare. Vi har kostnads¬ 
kalkylprogrammet för husköp till VIC-20 
(Oexp.) 75:—/styck. 

Tomas Svensson, tel 0121/42151 
VIC-64 säljes 

En VIC-64 med bandspelare och joystick 
säljes tillsammans med sju olika pro- 
grammeringsböcker och 10 stycken spel. 
Pris totalt 4500:— 

Ring Rikard Jansson, tel 031/312148 
efter 16.00 

Spel till VIC-20 och VIC-64 

Spel och nyttoprogram i maskinkod säl¬ 
jes eller bytes. VIC-20 -t- Grafik och ljud 
+ VIC-folkdator och användarmanual 
+ joystick säljes för 1500:— 

Ring Paul efter kl 19.00 tel 08/832754 
VIC-64 spel säljes 

Fortacalypse moon buggy, Shamus, Fal- 
con Patrol, Hexpert, Jumpman JR och 
Snokie. Alla spel kostar 100:—/styck. 
Kan disk. 

Ring Andre tel 08/85 6649 
Plug in till VIC-20 

Bytes eller säljes 

Ring 0753/25492 och fråga efter Peter 

Super-slot 

på Cartridge, som nytt. Endast 100:—. 
Ring 040/464846, kvällstid, fråga efter 
Magnus 

Kassettminne 

till ABC-80, något defekt. Endast 100:— 
Ring 040/464846, kvällstid, fråga efter 
Magnus 

VIC-20 handboken 

Oanvänd, endast 40:—. 

Ring 040/464846, kvällstid, fråga efter 
Magnus 

Spel till VIC-64 

Billiga spel till 64:an bl a Blue Max för 
200:—, Areadia, Galaxy, Siren City, 
Lazer Zone, alla för 50:— 

Ring 08/897635 eller skriv till Jakob 
Dangården, Castor VI1, 17561 Järfälla 
för programkatalog 
ÅÄÖ VIC-64 

Komplett sats med tangenter och chip. 
Ord. pris 250:— nu endast 150:— 

Bertil Nilbo, Grindögatan 62,253 72 Hel¬ 
singborg, tel 042/222436 
VIC-64 ägare!! 

Maskinkods-, Adventure- och Nytto¬ 
program bytes ev säljes. 

Tel 031/290132, Patrik 


TIPS VIC-64 

Program med 3 bra reducerade stryktips- 
system säljes på diskett. Enken avskrift. 
Fullständig instruktion. Garanti. Endast 
145:— 

B. Eriksson, tel 0651/15503 
VIC-20 säljes! 

VIC-20 med 8K. exp. Hesmon + div litt. 
2000 :— 

Tel 08/569889 efter kl 18.00 
VIC-20 pry lar säljes: 

Espansionslåda VIC 1020 nypris 1875:— 
säljes för endast 895:—. Programmers 
aid 200:—, 5 olika böcker endast 
40:—/styck, programmeringshandbo¬ 
ken 75:—, Plug-in spel 130:—/styck. Ori¬ 
ginal spel på band 50:—/styck. (Areadia, 
Vicmen och Centipede 8K) 

Ring 031/543841 
VIC-tillbehör! 

VIC-REL reläkort: 325:—. Program¬ 
mers reference guide CBM 64. 175:—. 
VIC—20 komiprg 16K: 75:—. Printer 
MPS-801 eller VIC 1526 köpes billigt, 
helst med garanti kvar. 

Andreas Jakobik, tel. 08/7688421 

VIC 64 Program bytes 

VIC-64 spel bytes mot andra VIC-64 spel! 

Har bl a Pipeline, Speed-race, Gridder 

mm. 

Magnus Svemfors, Solarvsplanb 3, 
43600 Askim. Tel 031/284000 
VIC-20 spel 

Plugg in, Cave in, nypris 349:— bytes 
mot Shamus. VIC-20 prgkassett nr 2 
bytes mot nr 1. 

Anders Ringman, Åsakroken 10, 51500 
Viskafors. 

VIC-20 tillbehör 

3-, 8-, 16-K-minne + Reset + 30 st 
M/kodspel + Autofire 1000:— 

Ring Jocke tel 0758/171% 

Beg. VIC-64 köpes 

Skriv till Christian During, Prästgårds¬ 
ängen 16, 41271 Göteborg 

VIC-64 program 

Programmen är främst avsedda för Si¬ 
mon^ Basic programmerare. Skicka 
namn och adress till mig, så får du infor¬ 
mation om mina helläckra program. 
Johan Harrysson, Båtvägen 5, 59061 
Vreta kloster 
VIC-20 spel bytes 

(Jag har 45 st) Alien blitz, Snakeman, 
Abductor, Gridrunner, Snakepit, Bogg- 
ler, Hopper etc. 

Göran Carlsson, Begonigatan 12, 13400 
Kungsbacka 

VIC-20 tillbehör 

8kB ram + Programmer’s Aid. Pris 
425:— 

Arne Ohlsson, tel 031/446225 
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Tips och 

förslag 



VIC rapport startar en bank i vilken vi samlar tips och 
förslag av alla sorter till din VIC 20 och VIC 64. De kan 
innefatta allt ifrån sladdanslutning till maskinkods- 
programmering. 

VIC rapport kommer att publicera dessa tips och förslag 
löpande. 

Skriv ner dina tips och förslag och skicka dem till 

VIC rapport, Tips och förslag 

Box 420 54 

126 12 Stockholm 

Allt som publiceras belönas! 




Handic Press 

Box 42054, 126 12 Stockholm 


MASSBREV 



MARKNADSFÖRS I NORDEN AV DENNIS BERGSTRÖM TRADING AB, TORSTENSSONSGATAN 4 
BOX 14204, 104 40 STOCKHOLM. TELEFON 08-67 96 35. TLX 105 67 DEBE S._ 





